File Coverage

blib/lib/Nikto/Parser/Host.pm

Criterion	Covered	Total	%
statement	3	11	27.2
branch			n/a
condition			n/a
subroutine	1	3	33.3
pod	0	2	0.0
total	4	16	25.0

# $Id: Host.pm 142 2009-10-16 19:13:45Z jabra $
package Nikto::Parser::Host;
{
    our $VERSION = '0.01';
    $VERSION = eval $VERSION;

    use Object::InsideOut;

    my @ip : Field : Arg(ip) : Get(ip);
    my @hostname : Field : Arg(hostname) : Get(hostname);
    my @ports : Field : All(ports) : Type(List(Nikto::Parser::Host::Port));

    # returns the port obj based on port number
    sub get_port {
        my ( $self, $port ) = @_;
        my @ports = grep( $_->port eq $port, @{ $self->ports } );
        return $ports[0];
    }

    # returns a ArrayRef containing a list of port objs
    sub get_all_ports {
        my ($self) = @_;
        my @ports = @{ $self->ports };
        return @ports;
    }
}
1;