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

• package Sslscan::Parser::Host::Port
  • get_all_ciphers
• EOF

# $Id: Port.pm 134 2009-10-16 18:21:38Z jabra $
package Sslscan::Parser::Host::Port;
{
    our $VERSION = '0.01';
    $VERSION = eval $VERSION;

    use Object::InsideOut;

    my @port : Field : Arg(port) : Get(port);
    my @ciphers : Field : Arg(ciphers) : Get(ciphers) : Type(List(Sslscan::Parser::Host::Port::Cipher));

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