view release on metacpan or  search on metacpan

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

package Acme::Ane;
use 5.008001;
use strict;
use warnings;

use Exporter "import";

our $VERSION = "0.01";
our @EXPORT_OK = qw( ane );

sub new {
  my ($class, $object) = @_;
  bless {object => $object}, $class
}

sub is_ane { 1; }

sub ane {
  __PACKAGE__->new($_[0]);
}

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)
    if ($ane->is_ane) {
      print "$ane is ane\n";
    }

Other way

    use Acme::Ane "ane";

    my $ane = ane $your_object

=head1 DESCRIPTION

Acme::Ane is joke module for Ane lover.

=head2 Exports

The following functions are exported only by request.

    ane

=head1 METHODS

=over 2

=item is_ane
X<is_ane>

Examin that the objec is ane.

=back

=head1 LICENSE

Copyright (C) Tomohiro Nishimura.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHOR

Tomohiro Nishimura E<lt>tomohiro68@gmail.comE<gt>

=cut