File Coverage

blib/lib/Net/GPSD3/Return/WATCH.pm
Criterion Covered Total %
statement 16 17 94.1
branch n/a
condition 1 3 33.3
subroutine 9 10 90.0
pod 7 7 100.0
total 33 37 89.1


line stmt bran cond sub pod time code
1             package Net::GPSD3::Return::WATCH;
2 2     2   948 use strict;
  2         4  
  2         61  
3 2     2   10 use warnings;
  2         3  
  2         57  
4 2     2   9 use base qw{Net::GPSD3::Return::Unknown};
  2         4  
  2         954  
5              
6             our $VERSION='0.14';
7              
8             =head1 NAME
9              
10             Net::GPSD3::Return::WATCH - Net::GPSD3 Return WATCH Object
11              
12             =head1 SYNOPSIS
13              
14             =head1 DESCRIPTION
15              
16             Provides a Perl object interface to the WATCH object returned by the GPSD daemon.
17              
18             =head1 METHODS
19              
20             =head2 class
21              
22             Returns the object class
23              
24             =head2 string
25              
26             Returns the JSON string
27              
28             =head2 parent
29              
30             Return the parent L object
31              
32             =head2 enabled
33              
34             =cut
35              
36             sub enabled {
37 4     4 1 361 my $self=shift;
38 4   33     70 return $self->{"enable"} || $self->{"enabled"}; #reverse once we move to the new protocol expected 3.5
39             }
40              
41              
42             =head2 enable (deprecated)
43              
44             =cut
45              
46 2     2 1 709 sub enable {shift->enabled(@_)}; #bad protocol name
47              
48             =head2 json
49              
50             =cut
51              
52 0     0 1 0 sub json {shift->{"json"}};
53              
54             =head2 nmea
55              
56             =cut
57              
58 2     2 1 10 sub nmea {shift->{"nmea"}};
59              
60             =head2 raw
61              
62             =cut
63              
64 1     1 1 356 sub raw {shift->{"raw"}};
65              
66             =head2 scaled
67              
68             =cut
69              
70 2     2 1 317 sub scaled {shift->{"scaled"}};
71              
72             =head2 timing
73              
74             =cut
75              
76 2     2 1 360 sub timing {shift->{"timing"}};
77              
78             =head1 BUGS
79              
80             Log on RT and Send to gpsd-dev email list
81              
82             =head1 SUPPORT
83              
84             DavisNetworks.com supports all Perl applications including this package.
85              
86             Try gpsd-dev email list
87              
88             =head1 AUTHOR
89              
90             Michael R. Davis
91             CPAN ID: MRDVT
92             STOP, LLC
93             domain=>michaelrdavis,tld=>com,account=>perl
94             http://www.stopllc.com/
95              
96             =head1 COPYRIGHT
97              
98             This program is free software licensed under the...
99              
100             The BSD License
101              
102             The full text of the license can be found in the LICENSE file included with this module.
103              
104             =head1 SEE ALSO
105              
106             L, L
107              
108             =cut
109              
110             1;