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
|
package Net::GPSD3::Cache;
use strict;
use warnings;
use base qw{Net::GPSD3::Base};
our $VERSION='0.12';
=head1 NAME
Net::GPSD3::Cache - Net::GPSD3 caching object
=head1 SYNOPSIS
use Net::GPSD3;
my $cache=Net::GPSD3->cache; #isa Net::GPSD3::Cache
$cache->add($obj); #obj isa Net::GPSD3::Return::XXX
=head1 DESCRIPTION
=head1 METHODS
=head2 add
Adds an object to the cache.
=cut
sub add {
my $self=shift;
my $obj=shift;
if ($obj->can("class") and $self->can($obj->class)) {
$self->{$obj->class}=$obj;
}
return $self;
}
=head2 TPV
Returns the last L<Net::GPSD3::Return::TPV> object reported by gpsd.
=cut
sub TPV {shift->{"TPV"}};
=head2 SKY
Returns the last L<Net::GPSD3::Return::SKY> object reported by gpsd.
=cut
sub SKY {shift->{"SKY"}};
=head2 DEVICES
Returns the last L<Net::GPSD3::Return::DEVICES> object reported by gpsd.
=cut
sub DEVICES {shift->{"DEVICES"}};
=head2 VERSION
Returns the last L<Net::GPSD3::Return::VERSION> object reported by gpsd.
=cut
sub VERSION {shift->{"VERSION"}};
=head2 ERROR
Returns the last L<Net::GPSD3::Return::ERROR> object reported by gpsd.
=cut
sub ERROR {shift->{"ERROR"}};
=head2 WATCH
Returns the last L<Net::GPSD3::Return::WATCH> object reported by gpsd.
=cut
sub WATCH {shift->{"WATCH"}};
=head2 SUBFRAME
Returns the last L<Net::GPSD3::Return::SUBFRAME> object reported by gpsd.
=cut
sub SUBFRAME {shift->{"SUBFRAME"}};
=head1 BUGS
Log on RT and Send to gpsd-dev email list
=head1 SUPPORT
DavisNetworks.com supports all Perl applications including this package.
Try gpsd-dev email list
=head1 AUTHOR
Michael R. Davis
CPAN ID: MRDVT
STOP, LLC
domain=>michaelrdavis,tld=>com,account=>perl
http://www.stopllc.com/
=head1 COPYRIGHT
This program is free software licensed under the...
The BSD License
The full text of the license can be found in the LICENSE file included with this module.
=head1 SEE ALSO
L<Net::GPSD3>
=cut
1;
|
