File Coverage

blib/lib/Package/Watchdog/Tracker/Forbid.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	26	26	100.0

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

#{{{ POD

=pod

=head1 NAME

Package::Watchdog::Tracker::Forbid - Track forbidden subs.

=head1 DESCRIPTION

See Package::Watchdog::Tracker() for more information.

Used to track Package::Watchdog::Sub::Forbidden objects.

=head1 ACCESSORS

The following accessors methods are automatically generated using
Package::Watchdog::Util::build_accessors().

=over 4

=item params()

Arrayref of parameters passed to the watched sub that was called causing this
object to come into existance.

=item watched()

The Package::Watchdog::Sub::Watched that is responsible for this objects
existance.

=back

=head1 METHODS

=over 4

=cut

#}}}

my @ACCESSORS = qw/package subs stack/;
build_accessors( @ACCESSORS );

=item track_sub( $package, $sub )

Forbid the specified sub in the specified package.

=cut

sub track_sub {
    my $self = shift;
    my ( $sub ) = @_;
    my $forbidden = Package::Watchdog::Sub::Forbidden->new( $self->package, $sub, $self );
    return $self;
}

1;

__END__