NAME

Pod::Example - Module for getting example from POD.

SYNOPSIS

 use Pod::Example qw(get sections);
 my $example = get($file_or_module[, $section[, $number_of_example]]);
 my @sections = sections($file_or_module[, $section]);

SUBROUTINES

get($file_or_module[, $section[, $number_of_example]])

 Returns code of example.
 $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 first example.

sections($file_or_module[, $section])

 Returns array of example sections.
 $file_or_module - File with pod doc or perl module.
 $section - Pod section with example. Default value is 'EXAMPLE'.

ERRORS

 Mine:
         Cannot open pod file or Perl module.

EXAMPLE1

 # Pragmas.
 use strict;
 use warnings;

 # Modules.
 use Pod::Example qw(get);

 # Get and print code.
 print get('Pod::Example')."\n";

 # Output:
 # This example.

EXAMPLE2

 # Pragmas.
 use strict;
 use warnings;

 # Modules.
 use Pod::Example qw(sections);

 # Get and print code.
 print join "\n", sections('Pod::Example');
 print "\n";

 # Output:
 # EXAMPLE1
 # EXAMPLE2

DEPENDENCIES

Error::Pure, Exporter, Module::Info, Pod::Abstract, Readonly.

REPOSITORY

https://github.com/tupinek/Pod-Example

AUTHOR

Michal Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

BSD license.

VERSION

0.04