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

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)
 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. Default value is 1.

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, 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.06