File Coverage

blib/lib/Net/GPSD3/Return/VERSION.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 5 5 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Net::GPSD3::Return::VERSION;
2 2     2   2005 use strict;
  2         5  
  2         79  
3 2     2   11 use warnings;
  2         4  
  2         65  
4 2     2   10 use base qw{Net::GPSD3::Return::Unknown};
  2         5  
  2         596  
5              
6             our $VERSION='0.14';
7              
8             =head1 NAME
9              
10             Net::GPSD3::Return::VERSION - Net::GPSD3 Return VERSION Object
11              
12             =head1 SYNOPSIS
13              
14             use Net::GPSD3;
15             my $gpsd=Net::GPSD3->new;
16             $gpsd->poll; #Sets VERSION and DEVICES in cache
17             my $v=$gpsd->cache->VERSION;
18             printf "Class: %s\nRelease: %s\nRevision: %s\nProtocol: %s\n",
19             $v->class,
20             $v->release,
21             $v->revision,
22             $v->protocol;
23              
24             Returns something like this.
25              
26             Class: VERSION
27             Release: 2.96~dev
28             Revision: 2011-03-17T02:51:23
29             Protocol: 3.4
30              
31             =head1 DESCRIPTION
32              
33             Provides a Perl object interface to the VERSION object returned by the GPSD daemon.
34              
35             =head1 METHODS
36              
37             =head2 class
38              
39             Returns the object class
40              
41             =head2 string
42              
43             Returns the JSON string
44              
45             =head2 parent
46              
47             Return the parent L object
48              
49             =head2 release
50              
51             =cut
52              
53 1     1 1 5 sub release {shift->{"release"}};
54              
55             =head2 rev, revision
56              
57             =cut
58              
59             *revision=\&rev;
60              
61 2     2 1 9 sub rev {shift->{"rev"}};
62              
63             =head2 proto, protocol
64              
65             =cut
66              
67             *protocol=\&proto;
68              
69             sub proto {
70 2     2 1 3 my $self=shift;
71 2         5 return join(".", $self->proto_major, $self->proto_minor);
72             }
73              
74             =head2 proto_major
75              
76             =cut
77              
78 3     3 1 12 sub proto_major {shift->{"proto_major"}};
79              
80             =head2 proto_minor
81              
82             =cut
83              
84 3     3 1 16 sub proto_minor {shift->{"proto_minor"}};
85              
86             =head1 BUGS
87              
88             Log on RT and Send to gpsd-dev email list
89              
90             =head1 SUPPORT
91              
92             DavisNetworks.com supports all Perl applications including this package.
93              
94             Try gpsd-dev email list
95              
96             =head1 AUTHOR
97              
98             Michael R. Davis
99             CPAN ID: MRDVT
100             STOP, LLC
101             domain=>michaelrdavis,tld=>com,account=>perl
102             http://www.stopllc.com/
103              
104             =head1 COPYRIGHT
105              
106             This program is free software licensed under the...
107              
108             The BSD License
109              
110             The full text of the license can be found in the LICENSE file included with this module.
111              
112             =head1 SEE ALSO
113              
114             L, L
115              
116             =cut
117              
118             1;