/usr/local/CPAN/XAO-Base/XAO/DO/Test2.pm

• package XAO::DO::Test2
  • method
• EOF

package XAO::DO::Test2;
use strict;
use base qw(XAO::SimpleHash);

sub method ($$) {
    my $self=shift;
    "XX" . (shift) . "--" . ref($self);
}

1;