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::Info;

# get Info object from contents of XML::CAP::Alert
my @infos = $alert->infos;
foreach $info ( @infos ) {
	# use the $info object as shown in examples below
}

# create new object
my $info = XML::CAP::Info->new();

# read values
$language = $info->language;
$category = $info->category;
$event = $info->event;
$responseType = $info->responseType;
$urgency = $info->urgency;
$severity = $info->severity;
$certainty = $info->certainty;
$audience = $info->audience;
$eventCode = $info->eventCode;
$effective = $info->effective;
$onset = $info->onset;
$expires = $info->expires;
$senderName = $info->senderName;
$headline = $info->headline;
$description = $info->description;
$instruction = $info->instruction;
$web = $info->web;
$contact = $info->contact;
$parameter = $info->parameter;

# write values
$info->language( $lang );
$info->category( $cat );
$info->event( $event );
$info->responseType( $response_type );
$info->urgency( $urgency );
$info->severity( $severity );
$info->certainty( $certainty );
$info->audience( $audience );
$info->eventCode( $event_code );
$info->effective( $effective );
$info->onset( $onset );
$info->expires( $expires );
$info->senderName( $sender_name );
$info->headline( $headline );
$info->description( $desc );
$info->instruction( $instruction );
$info->web( $url );
$info->contact( $contact );