File Coverage

blib/lib/Object/Dumb.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	13	14	92.8
condition			n/a
subroutine	2	2	100.0
pod	0	1	0.0
total	31	33	93.9

package Object::Dumb;

our $DATE = '2016-06-16'; # DATE
our $VERSION = '0.02'; # VERSION

#use strict;
#use warnings;

sub new {
    my $class = shift;
    my $o = {@_};

    $o->{returns} = 0 if !exists($o->{returns});
    bless $o, $class;
}

sub AUTOLOAD {
    my $meth = $AUTOLOAD; $meth =~ s/.+:://;
    my $self = shift;
    if ($self->{methods}) {
        my $known = 0;
        if (ref($self->{methods}) eq 'ARRAY') {
            $known = 1 if grep { $_ eq $meth } @{ $self->{methods} };
        } elsif (ref($self->{methods}) eq 'Regexp') {
            $known = 1 if $meth =~ $self->{methods};
        }
        die "Unknown method '$meth'" unless $known;
    }
    return $self->{returns};
}

1;
# ABSTRACT: A dumb object that responds to any method and just returns 0

__END__