view release on metacpan or  search on metacpan

lib/Acme/Ane.pm  view on Meta::CPAN

sub AUTOLOAD {
  my $self = shift;
  my $meth = our $AUTOLOAD;
  $meth =~ s/.*:://;
  $self->{object}->$meth(@_);
}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::Ane - Ane means big sister.

=head1 SYNOPSIS

    use Acme::Ane;

    my $ane = Acme::Ane->new($your_object)