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.

            There is no treatment for international prefix like
            +972-56-444222.

            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.