File Coverage

blib/lib/GPS/Poi.pm

Criterion	Covered	Total	%
statement	12	80	15.0
branch	0	10	0.0
condition	0	13	0.0
subroutine	4	14	28.5
pod	5	5	100.0
total	21	122	17.2

package GPS::Poi;
use strict;
use Class::Std::Utils;
our $VERSION = '0.01';

{
    my %file_of ;
    my @ref_entry_of;
    sub new{
        my ($class,$arg_ref) =@_;
        my $new_object =bless anon_scalar(),$class;

         $file_of{ident $new_object}= $arg_ref->{file}||'NULL';
        return $new_object;
    }

    sub DESTROY {
      my ($self)=@_;
      delete $file_of{ident $self};
    }

    sub parse  {

    my ($self,$arg_ref) =@_;
    $file_of{ident $self}= $arg_ref->{file} if exists $arg_ref->{file} ;

    return 0 if $file_of{ident $self} eq 'NULL' ;
    (open my $input, '<',$file_of{ident $self}) ||return 0 ;
    while ($input) {
        read ($input,$a,1);
        my $code = unpack "C" ,$a;
        last unless defined $code ;
        if ($code== 0 or $code ==2)
 	    {
	      read ($input,$a,4);
	      my $long= unpack "V",$a;
	      my $total= $long-5;
	      read ($input,$a,$total);
	      my ($longitude,$latitude,$chaine_c)= unpack "VVa*",$a;
              $longitude = $longitude / 100000.000000;
              $longitude =sprintf ("%.6f",$longitude);
              my $i =length ($longitude);
	      for ($i;$i < 13 ;$i++) {
     	        $longitude = "0".$longitude   ;
              }
	      $latitude = $latitude/ 100000.000000;
              $latitude =sprintf ("%.6f",$latitude);
              my $i =length ($latitude);
	      for ($i;$i < 13 ;$i++) {
     	        $latitude = "0".$latitude   ;
              }
	      my $chaine=substr($chaine_c,0,-1);
              my $entry = GPS::Poi::Entry->new ({ 'code' =>$code ,
                                            'label' => $chaine,
                                             'long' => $longitude,
                                             'lat' => $latitude ,
					  });
              push @ref_entry_of,$entry;
             } else
                { last;
                }
            }

close $input;
    return ($#ref_entry_of + 1) ;

}
sub clear_list  {
     my ($self)=@_;
     @ref_entry_of=();
 }


sub all_as_list  {
     my ($self)=@_;
  my @tmp;
    for my $entry  (@ref_entry_of) {
  push @tmp,$entry->as_list;


     }

     return @tmp;
}
sub dump_list  {
     my ($self)=@_;
  my @tmp;
    for my $entry  (@ref_entry_of) {
  push @tmp,$entry->as_print;


     }
my $a= join "\n" ,@tmp ;
     return "$a\n";
}

    sub DESTROY {
      my ($self)=@_;
      delete $file_of{ident $self};
      undef @ref_entry_of;
}
}

package GPS::Poi::Entry;
use strict;
use Class::Std::Utils;
our $VERSION = '0.01';
{
    my %label_of;
    my %long_of;
    my %lat_of;
    my %code_of;
sub new {
        my ($class,$arg_ref) =@_;
        my $new_object =bless anon_scalar(),$class;
         $label_of{ident $new_object}= $arg_ref->{label}||'NULL';
         $long_of{ident $new_object}= $arg_ref->{long}||'NULL';
         $lat_of{ident $new_object}= $arg_ref->{lat}||'NULL';
         $code_of{ident $new_object}= $arg_ref->{code}||'NULL';
         return $new_object;
    }
sub as_list {
     my ($self)=@_;
     my @tmp=  ($label_of{ident $self}, $long_of{ident $self} ,$lat_of{ident $self} ,$code_of{ident $self});
     return \@tmp;
}
sub as_print {
     my ($self)=@_;
     my $a = "$long_of{ident $self}  Lg - $lat_of{ident $self} Lt - $label_of{ident $self} - $code_of{ident $self}";
     return $a;
}

    sub DESTROY {
      my ($self)=@_;
      delete $label_of{ident $self};
      delete $long_of{ident $self};
      delete $lat_of{ident $self};
      delete $code_of{ident $self};
    }
}


# Preloaded methods go here.

1;
__END__