Select Code to Download

sub AS_ARRAY {
    my $self=shift;
    # do something useful here
}

$obj->[42];  # would be the same as
$obj->AS_ARRAY(42);  # and so on...

# -*- Perl -*-

...
1;

__END__

#!/usr/bin/perl -l

...
print +(matrix(1,1,1,0)**12)->(1,0);

__END__

#!/usr/bin/perl

...
END { warn "Leaving program\n" }

__END__

--- Testing <code> ---
Creating Foo=CODE(0x224eb4)
...
Leaving context
Leaving program
Deleting Foo=CODE(0x224eb4)