File Coverage

blib/lib/Object/Sub.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	6	66.6
condition	2	2	100.0
subroutine	7	8	87.5
pod	0	1	0.0
total	35	39	89.7

package Object::Sub;

use strict;

our $VERSION = '0.103';

our $AUTOLOAD;

use overload fallback => 1,
             '&{}' => sub {
                        my $self_ref = \$_[0];

                        return sub {
                          return $$self_ref->{cb}->($$self_ref, undef, @_);
                        };
                      };

sub AUTOLOAD {
  die "$_[0] is not an object" if !ref $_[0];

  my $name = $AUTOLOAD;
  $name =~ s/.*://;

  return $_[0]->{cb}->($_[0], $name, @_[1 .. $#_]);
}

sub new {
  my ($class, $cb) = @_;

  if (ref $cb eq 'HASH') {
    my $orig_cb = $cb;
    $cb = sub {
      ($orig_cb->{$_[1]} || die "unable to find method $_[1]")->($_[0], @_[2 .. $#_]);
    };
  }

  die "need a callback" if ref $cb ne 'CODE';

  my $self = { cb => $cb, };
  bless $self, $class;

  return $self;
}

## Prevent DESTROY method from being handled by AUTOLOAD

sub DESTROY {
}


1;



__END__