IKLUFT / XML-CAP-0.02 / lib / XML / CAP / Alert.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
—
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

              
# XML::CAP::Alert - class for XML::CAP alert element classes
# Copyright 2009 by Ian Kluft
# This is free software; you may redistribute it and/or modify it
# under the same terms as Perl itself.
#
# parts derived from XML::Atom::Feed
package XML::CAP::Alert;
use strict;
use warnings;
use base qw( XML::CAP::Base );
use XML::CAP;
use XML::CAP::Info;
=head1 NAME
XML::CAP::Alert - XML Common Alerting Protocol "alert" element class
=head1 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);
=head1 FUNCTIONS
=cut
# inherits initialize() from XML::CAP::Base
sub element_name { 'alert' }
# get list of <info> elements
#sub infos
#{
#       my $self = shift;
#       my @res = $self->elem->getElementsByTagNameNS($self->ns, 'info')
#               or return;
#       my @infos;
#       for my $res (@res) {
#               my $info = XML::CAP::Info->new(Elem => $res->cloneNode(1));
#               push @infos, $info;
#       }
#       @infos;
#}
# add an <info> element
sub add_infos
{
        my $self = shift;
        my($info, $opt) = @_;
        # note included from corresponding code in XML::Atom::Feed...
        # When doing an insert, we try to insert before the first <entry> so
        # that we don't screw up any preamble.  If there are no existing
        # <entry>'s, then fall back to appending, which should be
        # semantically identical.
        $opt ||= {};
        my ($first_entry) = $self->elem->getChildrenByTagNameNS($info->ns,
                'info');
        if ($opt->{mode} && $opt->{mode} eq 'insert' && $first_entry) {
                $self->elem->insertBefore($info->elem, $first_entry);
        } else {
                $self->elem->appendChild($info->elem);
        }
}
# make accessors
__PACKAGE__->mk_elem_accessors(qw( identifier sender sent status msgType
        source scope restriction addresses code note references incidents ));
__PACKAGE__->mk_object_list_accessor( 'info' => 'XML::CAP::Info',
        'infos' );
1;