File Coverage

blib/lib/Sslscan/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 134 2009-10-16 18:21:38Z jabra $
package Sslscan::Parser::Session;
{
    our $VERSION = '0.01';
    $VERSION = eval $VERSION;

    use Object::InsideOut;
    use XML::LibXML;
    use Sslscan::Parser::ScanDetails;

    my @title : Field : Arg(title) : All(title);
    my @web : Field : Arg(web) : All(web);
    my @version : Field : Arg(version) : All(version);
    my @scandetails : Field : Arg(scandetails) : Get(scandetails) :
        Type(Sslscan::Parser::ScanDetails);

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

        foreach my $Sslscanscan ( $doc->getElementsByTagName('document') ) {
            return Sslscan::Parser::Session->new(
                title   => $Sslscanscan->getAttribute('title'),
                version => $Sslscanscan->getAttribute('version'),
                web     => $Sslscanscan->getAttribute('web'),
                scandetails =>
                    Sslscan::Parser::ScanDetails->parse( $parser, $doc ),
            );
        }
    }
}
1;