File Coverage

blib/lib/Flow/From/XML.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:  Import events from XML
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
#$Id$
package Flow::From::XML;
use Flow;
use base 'Flow';
use XML::Flow;
use strict;
use warnings;

=head2 new  src

    new Flow::From::XML:: \$str

=cut

sub new {
    my $class = shift;
    my $dst   = shift;
    my $xflow = ( new XML::Flow:: $dst );
    return $class->SUPER::new( @_, _xml_flow => $xflow, );
}

sub begin {
    our $self = shift;
    $self->put_begin(@_);
    my $xfl  = $self->{_xml_flow};
    my %tags = (
        flow     => sub { shift; $self->put_flow( @{ shift @_ } ) },
        ctl_flow => sub { shift; $self->put_ctl_flow( @{ shift(@_) } ) }
    );
    $xfl->read( \%tags );
    $xfl->close;
    return;
}
1;