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