The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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