NAME

Net::GPSD::Satellite - Provides an interface for a gps satellite object.

SYNOPSIS

            

              
              
use Net::GPSD;
my $obj=Net::GPSD->new();
my $i=0;
print join("\t", qw{Count PRN ELEV Azim SNR USED}), "\n";
foreach ($obj->getsatellitelist) {
  print join "\t", ++$i,
                   $_->prn,
                   $_->elev,
                   $_->azim,
                   $_->snr,
                   $_->used;
                   $_->oid;
  print "\n";
}
            
          

or to construct a satelite object

            

              
              
use Net::GPSD::Satelite;
my $obj=Net::GPSD::Satellite->new(22,80,79,35,1);
            
          

or to create a satelite object

            

              
              
use Net::GPSD::Satelite;
my $obj=Net::GPSD::Satellite->new();
$obj->prn(22), 
$obj->elev(80), 
$obj->azim(79), 
$obj->snr(35), 
$obj->used(1);
            
          

DESCRIPTION

CONSTRUCTOR

new

            

              
              
my $obj=Net::GPSD::Satellite->new($prn,$elev,$azim,$snr,$used);
            
          

METHODS

initialize

prn

Returns the Satellite PRN number.

            

              
              
$obj->prn(22); 
my $prn=$obj->prn;
            
          

oid

Returns the Satellite Object ID from the GPS::OID package.

            

              
              
$obj->oid(22216); 
my $oid=$obj->oid;
            
          

elevation, elev

Returns the satellite elevation, 0 to 90 degrees.

            

              
              
$obj->elev(80); 
my $elev=$obj->elev;
            
          

azimuth, azim

Returns the satellite azimuth, 0 to 359 degrees.

            

              
              
$obj->azim(79); 
my $azim=$obj->azim;
            
          

snr

Returns the Signal to Noise ratio (C/No) 00 to 99 dB, null when not tracking.

            

              
              
$obj->snr(35); 
my $snr=$obj->snr;
            
          

used

Returns a 1 or 0 according to if the satellite was or was not used in the last fix.

            

              
              
$obj->used(1);
my $used=$obj->used;
            
          

q2u

LIMITATIONS

BUGS

Email author and submit to RT.

SUPPORT

DavisNetworks.com supports all Perl applications including this package.

AUTHOR

Michael R. Davis, qw/gpsd michaelrdavis com/

LICENSE

Copyright (c) 2006 Michael R. Davis (mrdvt92)

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO