/usr/local/CPAN/Sslscan-Parser/Sslscan/Parser/Host.pm

• package Sslscan::Parser::Host
  • get_port
  • get_all_ports
• EOF

# $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;