File Coverage

blib/lib/BT368i/NMEA/GP/GLL.pm

Criterion	Covered	Total	%
statement	9	52	17.3
branch	0	8	0.0
condition			n/a
subroutine	3	6	50.0
pod	2	3	66.6
total	14	69	20.2

#
# Written by Travis Kent Beste
# Sat Aug  7 10:18:09 CDT 2010

package BT368i::NMEA::GP::GLL;

use strict;
use vars qw( );

use Data::Dumper;

our @ISA     = qw( );

our $VERSION = sprintf("%d.%02d", q$Revision: 1.00 $ =~ /(\d+)\.(\d+)/);

#----------------------------------------#
#
#----------------------------------------#
sub new {
	my $class = shift;
	my %args  = shift;

	my %fields = (
		log_fh               => '',
		log_filename         => '',

		latitude             => '',
		latitude_hemisphere  => '',
		longitude            => '',
		longitude_hemisphere => '',
		utc_time             => '',
		data_valid           => '',
	);

	my $self = {
		%fields,
	};
	bless $self, $class;

	return $self;
}

#----------------------------------------#
#
#----------------------------------------#
sub print {
	my $self = shift;

	print "latitude             : " . $self->{latitude} . "\n";
	if ($self->{latitude_hemisphere} eq 'N') {
		print "latitude_hemisphere  : NORTH\n";
	} else {
		print "latitude_hemisphere  : SOUTH\n";
	}
	print "longitude            : " . $self->{longitude} . "\n";
	if ($self->{longitude_hemisphere} eq 'E') {
		print "longitude_hemisphere : EAST\n";
	} else {
		print "longitude_hemisphere : WEST\n";
	}
	print "longitude_hemisphere : " . $self->{longitude_hemisphere} . "\n";
	print "utc_time             : " . $self->{utc_time} . "\n";
	if ($self->{data_valid} == 'A') {
		print "data valid           : valid\n";
	} else {
		print "data valid           : in-valid\n";
	}
}

#----------------------------------------#
#
#----------------------------------------#
sub parse {
	my $self = shift;
	my $data = shift;

	# if we're logging, save data to filehandle
	if ($self->{log_fh}) {
		print { $self->{log_fh} } $data . "\n";
	}

	$data    =~ s/\*..$//; # remove the last three bytes (checksum)
	my @args = split(/,/, $data);

	# 1) Latitude, ddmm.mm format
	$self->{latitude} = $args[1];

	# 2) Latitude hemisphere, N or S
	$self->{latitude_hemisphere} = $args[2];

	# 3) Longitude, dddmm.mm format
	$self->{longitude} = $args[3];

	# 4) Longitude hemisphere, E or W
	$self->{longitude_hemisphere} = $args[4];

	# 5) UTC time of position fix, hhmmss format
	my @utc_time = split(//, $args[5]);
	my $hh = $utc_time[0];
	$hh .= $utc_time[1];
	my $mm = $utc_time[2];
	$mm .= $utc_time[3];
	my $ss = $utc_time[4];
	$ss .= $utc_time[5];
	my $ms = $utc_time[7];
	$ms .= $utc_time[8];
	$ms .= $utc_time[9];
	$self->{utc_time} = $hh . ':' . $mm . ':' . $ss . '.' . $ms;

	# 6) Data valid, A=Valid
	$self->{data_valid} = $args[6];
}

1;

__END__