The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

XML::CAP::Alert - XML Common Alerting Protocol "alert" element class

SYNOPSIS

    use XML::CAP;

    # read from parser
    use XML::CAP::Parser;
    my $obj = XML::CAP->new();
    $parser->parse_file( "cap-file.xml" );
    my $alert;
    eval_wrapper ( sub { $alert = $parser->alert });

    # create new object
    $alert = XML::CAP::Alert->new;

    # read values
    $identifier = $alert->identifier;
    $sender = $alert->sender;
    $sent = $alert->sent;
    $status = $alert->status;
    $msgType = $alert->msgType;
    $source = $alert->source;
    $scope = $alert->scope;
    $restriction = $alert->restriction;
    $addresses = $alert->addresses;
    $code = $alert->code;
    $note = $alert->note;
    $references = $alert->references;
    $incidents = $alert->incidents;

    # set values
    $alert->identifier( $id );
    $alert->sender( $sender );
    $alert->sent( $sent );
    $alert->status( $status );
    $alert->msgType( $type );
    $alert->source( $source );
    $alert->scope( $scope );
    $alert->restriction( $restr );
    $alert->addresses( $addr );
    $alert->code( $code_str );
    $alert->note( $note );
    $alert->references( $refs );
    $alert->incidents( $incidents);

FUNCTIONS