#!/usr/bin/perl -w

use strict; use warnings;

use Object;
use L;

package Foo;

use base 'Object';

sub get_cow {
	return 1;
}

package main;

my $f = Foo->new({cow => 10});

$f->cow(10);
p "cow:", $f->cow;