The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# $sslversion: Cipher.pm 18 2008-05-05 23:55:18Z jabra $
package NexposeSimpleXML::Parser::Vulnerability;
{
    use Object::InsideOut;

    my @id : Field : Arg(id) : Get(id);
    my @result_code : Field : Arg(result_code) : Get(result_code);
    my @references : Field : All(references) :
        Type(List(NexposeSimpleXML::Parser::Reference));

    sub get_all_references {
        my ($self) = @_;
        my @all_references = @{ $self->references };
        return @all_references;
    }
}
1;