File Coverage

blib/lib/WWW/WolframAlpha/Didyoumean.pm
Criterion Covered Total %
statement 9 17 52.9
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 26 46.1


line stmt bran cond sub pod time code
1             package WWW::WolframAlpha::Didyoumean;
2              
3 1     1   15 use 5.008008;
  1         4  
  1         35  
4 1     1   5 use strict;
  1         1  
  1         23  
5 1     1   5 use warnings;
  1         2  
  1         239  
6              
7             require Exporter;
8              
9             our @ISA = qw(Exporter);
10              
11             # Items to export into callers namespace by default. Note: do not export
12             # names by default without a very good reason. Use EXPORT_OK instead.
13             # Do not simply export all your public functions/methods/constants.
14              
15             # This allows declaration use WWW::WolframAlpha ':all';
16             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
17             # will save memory.
18             our %EXPORT_TAGS = ( 'all' => [ qw(
19             ) ] );
20              
21             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
22              
23             our @EXPORT = qw(
24             );
25              
26             our $VERSION = '1.0';
27              
28             sub new {
29 0     0 0   my $class = shift;
30 0           my $xmlo = shift;
31              
32 0           my $self = {};
33              
34 0           my ($url,$text);
35              
36 0 0         if ($xmlo) {
37 0           $self->{'text'} = $xmlo;
38             }
39              
40 0           return(bless($self, $class));
41             }
42              
43 0     0 0   sub text {shift->{'text'};}
44              
45              
46             # Preloaded methods go here.
47              
48             1;
49              
50              
51             =pod
52              
53             =head1 NAME
54              
55             WWW::WolframAlpha::Didyoumean
56              
57             =head1 VERSION
58              
59             version 1.10
60              
61             =head1 SYNOPSIS
62              
63             foreach my $didyoumean (@{$query->didyoumeans->didyoumean}) {
64             print " Did you mean: ", $didyoumean->text, "\n"
65             }
66              
67             =head1 DESCRIPTION
68              
69             =head2 ATTRIBUTES
70              
71             $didyoumean->text
72              
73             =head2 EXPORT
74              
75             None by default.
76              
77             =head1 NAME
78              
79             WWW::WolframAlpha::Didyoumean - Perl objects returned via $query->didyoumeans->didyoumean
80              
81             =head1 SEE ALSO
82              
83             L
84              
85             =head1 AUTHOR
86              
87             Gabriel Weinberg, Eyegg@alum.mit.eduE
88              
89             =head1 COPYRIGHT AND LICENSE
90              
91             Copyright (C) 2009 by Gabriel Weinberg
92              
93             This library is free software; you can redistribute it and/or modify
94             it under the same terms as Perl itself, either Perl version 5.8.8 or,
95             at your option, any later version of Perl 5 you may have available.
96              
97             =head1 AUTHOR
98              
99             Gabriel Weinberg
100              
101             =head1 COPYRIGHT AND LICENSE
102              
103             This software is copyright (c) 2009 by Gabriel Weinberg.
104              
105             This is free software; you can redistribute it and/or modify it under
106             the same terms as the Perl 5 programming language system itself.
107              
108             =cut
109              
110              
111             __END__