Skip to content

Instantly share code, notes, and snippets.

@tokuhirom

tokuhirom/number-phone-jp.diff

Forked from kanonji/Bar.pm
Created June 8, 2011 07:19
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save tokuhirom/1013957 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save tokuhirom/1013957 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. tokuhirom revised this gist Jun 8, 2011. 6 changed files with 49 additions and 60 deletions.
    18 changes: 0 additions & 18 deletions Bar.pm
    View file
    Original file line number Diff line number Diff line change
    @@ -1,18 +0,0 @@
    package Bar;

    use strict;
    use warnings;
    use utf8;

    use Number::Phone::JP;

    sub invoke {
    my ( $self ) = @_;

    my $ins = Number::Phone::JP->new;
    my $result = $ins->set_number('03-5321-1111')->is_valid_number;
    warn scalar keys %Number::Phone::JP::TEL_TABLE;
    return $result;
    }

    1;
    18 changes: 0 additions & 18 deletions Foo.pm
    View file
    Original file line number Diff line number Diff line change
    @@ -1,18 +0,0 @@
    package Foo;

    use strict;
    use warnings;
    use utf8;

    use Number::Phone::JP;

    sub invoke {
    my ( $self ) = @_;

    my $ins = Number::Phone::JP->new;
    my $result = $ins->set_number('03-5321-1111')->is_valid_number;
    warn scalar keys %Number::Phone::JP::TEL_TABLE;
    return $result;
    }

    1;
    26 changes: 26 additions & 0 deletions number-phone-jp.diff
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,26 @@
    diff --git a/lib/Number/Phone/JP/Table.pm b/lib/Number/Phone/JP/Table.pm
    index ddca7c4..9e26380 100644
    --- a/lib/Number/Phone/JP/Table.pm
    +++ b/lib/Number/Phone/JP/Table.pm
    @@ -5,7 +5,6 @@ use warnings;
    use base qw(Exporter);

    our $VERSION = '0.20110401';
    -our @EXPORT = qw(%TEL_TABLE);

    require Number::Phone::JP::Table::Class1;
    require Number::Phone::JP::Table::Class2;
    @@ -35,6 +34,13 @@ our %TEL_TABLE = (
    %Number::Phone::JP::Table::Fmc::TEL_TABLE,
    );

    +sub import {
    + my $class = shift;
    + my $pkg = caller(0);
    + no strict 'refs';
    + %{"$pkg\::TEL_TABLE"} = %TEL_TABLE;
    +}
    +
    1;
    __END__

    10 changes: 0 additions & 10 deletions once.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -1,10 +0,0 @@
    use strict;
    use warnings;
    use utf8;

    use Foo;

    my $result = Foo::invoke();
    warn $result;

    1;
    23 changes: 23 additions & 0 deletions test.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,23 @@
    use strict;
    use warnings;
    use utf8;
    use Test::More tests => 1;

    {
    package Foo;

    use Number::Phone::JP;
    use Number::Phone::JP;

    sub invoke {
    my ( $self ) = @_;

    my $ins = Number::Phone::JP->new;
    my $result = $ins->set_number('03-5321-1111')->is_valid_number;
    return $result;
    }
    }


    is(Foo::invoke(), 1);

    14 changes: 0 additions & 14 deletions twice.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -1,14 +0,0 @@
    use strict;
    use warnings;
    use utf8;

    use Foo;
    use Bar;

    my $result = Foo::invoke();
    warn $result;

    my $result2 = Bar::invoke();
    warn $result2;

    1;
  2. @kanonji kanonji created this gist Jun 7, 2011.
    18 changes: 18 additions & 0 deletions Bar.pm
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,18 @@
    package Bar;

    use strict;
    use warnings;
    use utf8;

    use Number::Phone::JP;

    sub invoke {
    my ( $self ) = @_;

    my $ins = Number::Phone::JP->new;
    my $result = $ins->set_number('03-5321-1111')->is_valid_number;
    warn scalar keys %Number::Phone::JP::TEL_TABLE;
    return $result;
    }

    1;
    18 changes: 18 additions & 0 deletions Foo.pm
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,18 @@
    package Foo;

    use strict;
    use warnings;
    use utf8;

    use Number::Phone::JP;

    sub invoke {
    my ( $self ) = @_;

    my $ins = Number::Phone::JP->new;
    my $result = $ins->set_number('03-5321-1111')->is_valid_number;
    warn scalar keys %Number::Phone::JP::TEL_TABLE;
    return $result;
    }

    1;
    10 changes: 10 additions & 0 deletions once.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,10 @@
    use strict;
    use warnings;
    use utf8;

    use Foo;

    my $result = Foo::invoke();
    warn $result;

    1;
    14 changes: 14 additions & 0 deletions twice.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,14 @@
    use strict;
    use warnings;
    use utf8;

    use Foo;
    use Bar;

    my $result = Foo::invoke();
    warn $result;

    my $result2 = Bar::invoke();
    warn $result2;

    1;