File Coverage

blib/lib/WriteAt/AUTHOR.pm

Criterion	Covered	Total	%
statement	12	30	40.0
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	40	40.0

#===============================================================================
#
#  DESCRIPTION:  Author SECTION
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
package WriteAt::AUTHOR;
use strict;
use warnings;
use Perl6::Pod::Block;
use base 'Perl6::Pod::Block';
our $VERSION = '0.01';

=pod

Convert:

    *AUTHOR firstname  [lineage ] surname

    *AUTHOR Alex Bred Bom
    *AUTHOR Alex Bom

To


                Alex
                Bred
                Bom


=cut

sub parse_content {
    my $self     = shift;
    my $t        = shift;
    my @words = grep {defined $_ } $t=~m/^ \s* (\S+) \s+ (?:(\S+)\s+)? (\S+)/x;
    my %items  = ();
    if (scalar(@words) > 2 ) {
    @items{qw/ firstname  lineage surname /} = @words;
    }  else {
    @items{qw/ firstname  surname /} = @words;
    }
    return \%items;
}

sub to_docbook {
    my ( $self, $to )= @_;
    my $w = $to->w;
    $w->raw('');
    my $rec = $self->parse_content( $self->childs->[0]->childs->[0] );
    while( my ($k, $v) = each %$rec ) {
        $w->raw("<$k>");
        $w->print("$v");
        $w->raw("");
    }
    $w->raw('');
}
1;