File Coverage

blib/lib/Package/Watchdog/Sub/Watched.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	7	8	87.5
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	45	46	97.8

package Package::Watchdog::Sub::Watched;
use strict;
use warnings;
use Package::Watchdog::Tracker::Forbid;
use Package::Watchdog::Util;
use base 'Package::Watchdog::Sub';

#{{{ POD

=pod

=head1 NAME

Package::Watchdog::Sub::Watched - Object to manage a watched sub.

=head1 DESCRIPTION

Inherits methods from Package::Watchdog::Sub.

=head1 METHODS

=over 4

=item new_sub()

Returns the sub reference that will replace the original watched sub.

=cut

#}}}

sub new_sub {
    my $self = shift;

    return sub {
        my $want = wantarray();
        my $context = {
            watched_params => [ @_ ],
            watched => $self,
        };

        push @{ $self->tracker->stack } => [ $self->tracker, $context ];
        my @out = eval { proper_return( $want, $self->original, @_ )};
        pop @{ $self->tracker->stack };

        die( $@ ) if $@;
        return @out if $want;
        return shift( @out ) if defined( $want );
        return @out if @out > 1;
        return shift( @out );
    };
}

1;

__END__