The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Package::Watchdog::Tracker::Watch - Tracker to track watched subs.

DESCRIPTION

Tracks Package::Watchdog::Sub::Watched objects.

ACCESSORS

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

package()

The package being watched.

react()

The default reaction when a forbidden sub is accessed.

name()

The name of this watch.

METHODS

init( package => $package, stack => \@stack, react => $react, subs => $subs )

Called by new(), arguments should be appended to the end of the arguments used w/ new().

gen_name()

Generates a name for the watch. Called by init() when name is not specified.

track_sub( $sub )

Watch a specific sub in the watch's package.

gen_warning( $set, $level )

FOR INTERNAL USE ONLY

Generates the warning message when a watch is violated.

warn( $set, $level )

FOR INTERNAL USE ONLY

Issue a warning when a watch is violated.

do_react( \%context )

FOR INTERNAL USE ONLY

Runs the custom reaction code when a watch is violated.

AUTHORS

Chad Granum chad@opensourcery.com

COPYRIGHT

Copyright (C) 2009 OpenSourcery, LLC

Package-Watchdog is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

Package-Watchdog is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

Package-Watchdog is packaged with a copy of the GNU General Public License. Please see docs/COPYING in this distribution.