NAME App::Pod::Example - Base class for pod_example script. SYNOPSIS use App::Pod::Example; my $app = App::Pod::Example->new(%parameters); $app->run($file_or_module, $section); METHODS "new(%parameters)" Constructor. * "debug" Debug flag. It means print debug messages. Default value is 1. * "enumerate" Enumerate lines in print output. Default value is 0. * "print" Print flag. It means print of example. Default value is 0. * "run" Run flag. It means run of example. Default value is 1. "run($file_or_module, $section, $number_of_example, $args_ar)" Run method. $file_or_module - File with pod doc or perl module. $section - Pod section with example. Default value is 'EXAMPLE'. $number_of_example - Number of example. If exists 'EXAMPLE1' and 'EXAMPLE2' sections, then this number can be '1' or '2'. Default value is nothing. $args_ar - Reference to array with arguments for 'run' mode. Returns undef. ERRORS new(): Cannot process any action. From Class::Utils::set_params(): Unknown parameter '%s'. EXAMPLE # Pragmas. use strict; use warnings; # Modules. use App::Pod::Example; # Run. App::Pod::Example->new( 'enumerate' => 1, 'print' => 1, 'run' => 1, )->run('Pod::Example'); CAVEATS Examples with die() cannot process, because returns bad results. DEPENDENCIES Class::Utils, English, Error::Pure, File::Temp, IO::Barf, Pod::Example, Readonly. REPOSITORY <https://github.com/tupinek/App-Pod-Example> AUTHOR Michal Å paÄek <mailto:skim@cpan.org> <http://skim.cz> LICENSE AND COPYRIGHT BSD license. VERSION 0.13