Repository List / moosie / trunk / objref.pl @ HEAD

#!/usr/bin/perl

package Foo;

sub new {
	my $class = shift;
	my %parms = @_;
	my $self = {%parms};
	bless $self,$class;
}

sub foo {
	my $self = shift;
	print "ref:".ref($self) . " self:$self isa:" . $self->isa('Foo') . "\n";
}

package main;

my $obj = new Foo;
$obj->foo();
Foo->foo();