File Coverage

blib/lib/Geo/StormTracker/Advisory.pm

Criterion	Covered	Total	%
statement	9	68	13.2
branch	0	8	0.0
condition	0	6	0.0
subroutine	3	19	15.7
pod	14	15	93.3
total	26	116	22.4

package Geo::StormTracker::Advisory;
use Carp;
use strict;
use vars qw($VERSION);

$VERSION = '0.02';

#----------------------------------------------------------------------
sub new {
	my $HR={};
	bless $HR,'Geo::StormTracker::Advisory';
	return $HR;
}#new
#---------------------------------------------------------------------
sub stringify {
	my $self=shift;

	my $head=$self->_muck_with_hash('header_string');
	my $body=$self->_muck_with_hash('body_string');

	if (defined($head) and defined($body)){
		return $head."\n".$body;
	}
	else {
		return undef;
	}
}#stringify
#---------------------------------------------------------------------
sub stringify_header {
	my $self=shift;
	my $header_string=shift;

	return $self->_muck_with_hash('header_string',$header_string);
}#stringify_header
#---------------------------------------------------------------------
sub stringify_body {
	my $self=shift;
	my $body_string=shift;

	return $self->_muck_with_hash('body_string',$body_string);
}#stringify_body
#---------------------------------------------------------------------
sub name {
	my $self=shift;
	my $name=shift;

	return $self->_muck_with_hash('name',$name);
}#name
#---------------------------------------------------------------------
sub epoch_date {
	my $self=shift;
	my $epoch_date=shift;

	return $self->_muck_with_hash('epoch_date',$epoch_date);
}#epoch_date
#---------------------------------------------------------------------
sub event_type {
	my $self=shift;
	my $event_type=shift;

	return $self->_muck_with_hash('event_type',$event_type);
}#event_type
#---------------------------------------------------------------------
sub advisory_number {
	my $self=shift;
	my $advisory_number=shift;

	return $self->_muck_with_hash('advisory_number',$advisory_number);
}#advisory_number
#---------------------------------------------------------------------
sub is_final {
	my $self=shift;
	my $is_final=shift;

	return $self->_muck_with_hash('is_final',$is_final);
}#is_final
#---------------------------------------------------------------------
sub release_time {
	my $self=shift;
	my $release_time=shift;

	return $self->_muck_with_hash('release_time',$release_time);
}#release_time
#---------------------------------------------------------------------
sub weather_service {
	my $self=shift;
	my $weather_service=shift;

	return $self->_muck_with_hash('weather_service',$weather_service);
}#weather_service
#---------------------------------------------------------------------
sub position {
	my $self=shift;
	my $position_AR=shift;

	if ((defined $position_AR) and ( ref($position_AR) ne 'ARRAY' )){
		croak "position method expects an array reference when used as an assignment operator!\n";
	}

	return $self->_muck_with_hash('position',$position_AR);
}#position
#---------------------------------------------------------------------
sub max_winds {
	my $self=shift;
	my $max_winds=shift;

	return $self->_muck_with_hash('max_winds',$max_winds);
}#max_winds
#---------------------------------------------------------------------
sub min_central_pressure {
	my $self=shift;
	my $min_central_pressure=shift;

	return $self->_muck_with_hash('min_central_pressure',$min_central_pressure);
}#min_central_pressure
#---------------------------------------------------------------------
#sub movement_toward {
#	my $self=shift;
#	my $movement_toward_AR=shift;
#
#	if ((defined $movement_toward_AR) and (ref($movement_toward_AR) ne 'ARRAY')){
#		croak "movement_toward method expects an array reference when used as an assignment operator!\n";
#	}
#
#	return $self->_muck_with_hash('movement_toward',$movement_toward_AR);
#}#movement_toward
#---------------------------------------------------------------------
sub wmo_header {
	my $self=shift;
	my $wmo_header=shift;

	return $self->_muck_with_hash('wmo_header',$wmo_header);
}#wmo_header
#---------------------------------------------------------------------
sub _muck_with_hash {
	my $self=shift;
	my $key=shift;
	my $value=shift;

	#If called as an assignment
	if (defined($value)){
		$self->{$key}=$value;
		return $self->{$key};
	}
	#Must have been called as a data request
	else {
		if (defined($self->{$key})){
			return $self->{$key};
		}
		else {
			return undef;
		}#if/else
	}#if/else
}#_muck_with_hash
#---------------------------------------------------------------------
1;
__END__