Revision 1 (by moose, 2006/07/20 11:34:56) initial import 
#!/usr/bin/perl
use warnings;
use strict;

package Ref;

sub foo {
	my $self = shift;
	if(ref($self) eq 'Ref') {
		return $self->{'foo'};
	}
	else {
		return "isnt a foo ".$self;
	}
}

package main;

print "foo: ".Ref->foo,"\n";