view release on metacpan or  search on metacpan

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

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;

t/01_new.t  view on Meta::CPAN

use strict;
use Test::More 0.98;


package Obj;
sub new {
  my $class = shift;
  bless +{}, $class;
}

sub some_method {
  my $self = shift;
  "some method";
}

package main;

use Acme::Ane qw(ane);