X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FNumber%2FPhone%2FRO.pm;h=0c1e1e105fbf7cc26d08dfdbb9c58e31baf13fe4;hb=fd6b00dc619d11dfb38b170bce2459c371708d8b;hp=adf4e2d19a7952dc4fa56e82ec18ff99199a4ba5;hpb=910b926d93ef91e4c40d4c4c7b7ac071540bfdd7;p=number-phone-ro.git diff --git a/lib/Number/Phone/RO.pm b/lib/Number/Phone/RO.pm index adf4e2d..0c1e1e1 100644 --- a/lib/Number/Phone/RO.pm +++ b/lib/Number/Phone/RO.pm @@ -7,7 +7,7 @@ use parent qw/Number::Phone/; use utf8; use re '/s'; -sub AREA_NAMES (); ## no critic (ProhibitSubroutinePrototypes) +sub AREA_NAMES (); our $VERSION = '0.002'; @@ -87,8 +87,8 @@ sub query_portabilitate { $self->_info->{portabilitate_queried} = 1; my $req = $ht->get("http://portabilitate.ro/ro-no-0$$self"); return unless $req->{success}; - my ($initial_operator) = $req->{content} =~ /lnkOperatorInitial">([^<]*){content} =~ /lnkOperator">([^<]*){content} =~ /lnkOperatorInitial">([^<]*){content} =~ /lnkOperator">([^<]*)_info->{initial_operator} = $initial_operator; $self->_info->{current_operator} = $current_operator; @@ -192,6 +192,8 @@ following methods from L are overridden: =item B +=item B + =item B Always returns 40.