File Coverage

blib/lib/NexposeSimpleXML/Parser/Session.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

# $Id: Session.pm 18 2008-05-05 23:55:18Z jabra $
package NexposeSimpleXML::Parser::Session;
{
    use Object::InsideOut;
    use XML::LibXML;
    use NexposeSimpleXML::Parser::ScanDetails;

    my @generated : Field : Arg(generated) : All(generated);
    my @scandetails : Field : Arg(scandetails) : Get(scandetails) :
        Type(NexposeSimpleXML::Parser::ScanDetails);

    sub parse {
        my ( $self, $parser, $doc ) = @_;

        foreach my $nx ( $doc->getElementsByTagName('NeXposeSimpleXML') ) {
            my $generated
                = scalar( @{ $nx->getElementsByTagName('generated') } ) > 0
                ? @{ $nx->getElementsByTagName('generated') }[0]
                ->textContent()
                : undef;
            return NexposeSimpleXML::Parser::Session->new(
                generated   => $generated,
                scandetails => NexposeSimpleXML::Parser::ScanDetails->parse(
                    $parser, $doc
                ),
            );
        }
    }
}
1;