File Coverage

blib/lib/WriteAt/CHANGES.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

#===============================================================================
#
#  DESCRIPTION:  Block CHANGES
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
package WriteAt::CHANGES;
use strict;
use warnings;
use Perl6::Pod::Block;
use base 'Perl6::Pod::Block';

=pod
From
 =CHANGES
 date (revnumber) (\t|\s{2,} ) revremark [authorinitials]

 =CHANGES :authorinitials('zag')
 06.04.2011(v0.15)[zag]   test text
 some text at line

to


                 v0.15
                 Feb 10th 2011
                 zag
                 test text


=cut

sub to_docbook {
    my ( $self, $to ) = @_;
    my $w = $to->w;
    $w->raw('');
    my $recs = $self->parse_content($self->{''});
    foreach my $rec (@$recs) {
        $w->raw('');
        while( my ($k, $v) = each %$rec) {
            next unless $k;
            $w->raw("<$k>");
            $w->print($v);
            $w->raw("");
        }
        $w->raw('');
    }
    $w->raw('');
}

sub parse_content {
    my $self = shift;
    my $txt = shift;
    my $r = do {
        use Regexp::Grammars;
        qr{
        \A .*? <[lines=line]>+ % ([\s\n]+) (^ = .* )?\Z
        #Sep 19th 2011(v0.7)[zag]   ¿¿¿¿¿¿ ¿ ¿¿¿¿¿¿¿
        ^
                (?!=)
                \(  \)
                \[  \]

        }xms
    };
    if ($txt =~ $r ) {
        return $/{lines}
    } else {
        die 'error parse CHANGES'
    }
}
1;