Number::Phone::IL::NewCell - New cellular phone numbers in Israel.

NAME

 Number::Phone::IL::NewCell - New cellular phone numbers in Israel.

SYNOPSIS

        use Number::Phone::IL::NewCell;
        my $a=Number::Phone::IL::NewCell->new;
        $a->Old2New('055-1231456');

DESCRIPTION

This modules can be used to replace cellular phone numbers according to April 2004 scheme in Israel.

METHODS

  1. Old2New(oldnumber)

    This method assigns the old cellular phone number to the object.

PROPERTIES

  1. $->{result}

    The result of number conversion. If the number was not identified as a valid number according to the Scheme the old number will be in the result.

  2. $OldPrix2New a hash reference to the number change scheme.

BUGS

This program was poorly tested !!!!

As this is a run once program, I don't think that I will fix bugs or release new versions.

If you need treatment for international prefix like +972-56-444222 you may use programs and module conributed by Shlomi Fish.

IF YOU USE THIS PROGRAM, YOU DO THIS AT YOUR OWN RISK !!!.

Make backup before you run this program !!!!

AUTHOR

Oded S. Resnik RAZ Information Systems, razinf@cpan.org, raz@raz.co.il.

COPYRIGHT

Copyright (c) 2004 RAZ Information Systems Ltd. http://www.raz.co.il/

This package is distributed under the same terms as Perl itself, see the Artistic License on Perl's home page.

 Number::Phone::IL::NewCell - New cellular phone numbers in Israel.