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