File Coverage

blib/lib/App/Zealc/UsageExtractor.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	6	0.0
condition	0	3	0.0
subroutine	5	12	41.6
pod	3	7	42.8
total	23	61	37.7

package App::Zealc::UsageExtractor;

use 5.014000;
use strict;
use warnings;

our $VERSION = '0.000_001';

use parent qw/Pod::Simple::Methody/;

use Text::Wrap qw/fill/;

sub start_head1 {
	my ($self, $section) = @_;
	$self->{section} = '';
	$self->{insection} = 1;
}

sub end_head1 {
	my ($self) = @_;
	$self->{insection} = 0;
	$self->{firstpara} = 1;
}

sub start_Para {
	my ($self) = @_;
	$self->handle_text("\n\n") unless $self->{firstpara};
	$self->{firstpara} = 0;
}

sub handle_text {
	my ($self, $text) = @_;
	$self->{section}          .= $text if $self->{insection};
	$self->{$self->{section}} .= $text if $self->{section} && !$self->{insection};
}

sub synopsis {
	my ($self) = @_;
	$self->{SYNOPSIS}
}

sub description {
	my ($self) = @_;
	fill '', '', $self->{DESCRIPTION}
}

sub usage {
	my ($self) = @_;
	$self->synopsis . "\n\n" . $self->description . "\n";
}

1;
__END__