File Coverage

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

    use Object::InsideOut;

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

    sub get_port {
        my ( $self, $port ) = @_;
        my @ports = grep( $_->port eq $port, @{ $self->ports } );
        return $ports[0];
    }

    sub get_all_ports {
        my ($self) = @_;
        my @ports = @{ $self->ports };
        return @ports;
    }
}
1;