Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

IKALLEN / WebService-Technorati-0.04 / lib / WebService / Technorati / SearchTerm.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
113
114
115
116
117
118
119
—
120
121
122
123
124
125
126
127
128
129
130
131
132
—
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179

              
package WebService::Technorati::SearchTerm;
use strict;
use utf8;
use WebService::Technorati::BaseTechnoratiObject;
use base 'WebService::Technorati::BaseTechnoratiObject';
use fields qw(inboundblogs query querycount querytime rankingstart);
BEGIN {
    use vars qw ($VERSION $DEBUG);
    $VERSION    = 0.04;
    $DEBUG       = 0;
}
=head2 getInboundblogs
 Usage     : getInboundblogs();
 Purpose   : 
 Returns   : a scalar string
 Argument  : none
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 setInboundblogs
 Usage     : setInboundblogs(string);
 Purpose   : 
 Returns   : void
 Argument  : a scalar string
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 getQuery
 Usage     : getQuery();
 Purpose   : 
 Returns   : a scalar string
 Argument  : none
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 setQuery
 Usage     : setQuery(string);
 Purpose   : 
 Returns   : void
 Argument  : a scalar string
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 getQuerycount
 Usage     : getQuerycount();
 Purpose   : 
 Returns   : a scalar string
 Argument  : none
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 setQuerycount
 Usage     : setQuerycount(string);
 Purpose   : 
 Returns   : void
 Argument  : a scalar string
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 getQuerytime
 Usage     : getQuerytime();
 Purpose   : 
 Returns   : a scalar string
 Argument  : none
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 setQuerytime
 Usage     : setQuerytime(string);
 Purpose   : 
 Returns   : void
 Argument  : a scalar string
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 getRankingstart
 Usage     : getRankingstart();
 Purpose   : 
 Returns   : a scalar string
 Argument  : none
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
=head2 setRankingstart
 Usage     : setRankingstart(string);
 Purpose   : 
 Returns   : void
 Argument  : a scalar string
 Throws    : none
 Comments  : 
See Also   : WebService::Technorati
=cut
use WebService::Technorati::Blog;
{
    my %_attrs = (
        inboundblogs => undef,
        query => undef,
        querycount => undef,
        querytime => undef,
        rankingstart => undef
    );
    sub _accessible {
        if ($DEBUG) {
            print __PACKAGE__ . ": checking for attr [$_[1]]\n";
        }
        return exists($_attrs{$_[1]});
    }
}
sub new_from_node {
    my $class = shift;
    my $node = shift;
    my $data = {
        inboundblogs => $node->findvalue('inboundblogs')->string_value(),
        query => $node->findvalue('query')->string_value(),
        querycount => $node->findvalue('querycount')->string_value(),
        querytime => $node->findvalue('querytime')->string_value(),
        rankingstart => $node->findvalue('rankingstart')->string_value(),
    };
    my $self = bless ($data, ref ($class) || $class);
    return $self;
}
1;