File Coverage

blib/lib/Locale/India.pm

Criterion	Covered	Total	%
statement	11	13	84.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	16	18	88.8

package Locale::India;

BEGIN {
  $Locale::India::VERSION = '0.001';
}


use strict;
use warnings;

use Data::Dumper;

use Data::Section::Simple;

# Constructor

sub new {

	my $class = shift;
	my $self = {} ;

	my $data = Data::Section::Simple::get_data_section('states');

	my @line = split "\n", $data;

	foreach ( @line ) {

		my ($code, $name, $type) = split ':';

		if ($type =~ /state/i) {
			$self->{code2state}{uc $code}  = uc $name;
			$self->{state2code}{uc $name} = uc $code;
		} else {
			$self->{code2ut}{uc $code}  = uc $name;
			$self->{ut2code}{uc $name} = uc $code;
		}
	}

	bless $self, $class;
}

sub get_all_state_codes {

	my $self = shift;

	sort keys % { $self->{code2state} } ;

}

sub get_all_state_names {

	my $self = shift;

	sort keys % { $self->{state2code} } ;

}

sub get_all_ut_codes {

	my $self = shift;

	sort keys % { $self->{code2ut} };

}

sub get_all_ut_names {

	my $self = shift;

	sort keys % { $self->{ut2code} };

}

1;

__DATA__