view release on metacpan or  search on metacpan

lib/Acme/Greeting.pm  view on Meta::CPAN

package Acme::Greeting;
use strict;
use warnings;
use v5.12.3;
use utf8;
use self;

our $VERSION = '0.0.3';

my $last = "";

sub new {
    my %opt = args;
    $opt{language} = "en" unless defined $opt{language};
    $opt{target} = "guest" unless defined $opt{target};

lib/Acme/Greeting.pm  view on Meta::CPAN

    my $realfile = "";
    my $db = "Acme/Greeting/$opt{language}.pm";
    for my $prefix (@INC) {
        $realfile = "$prefix/$db";
        last if (-f $realfile);
    }

    my @greeting = ();

    my $DB;
    open($DB, "<:utf8", $realfile) and do {
        while (<$DB>) {
            chomp;
            if ( m/^=item\ (.+)$ /x ) {
                push @greeting, $1;
            }
        }
        close $DB;
    };

    if (@greeting == 0) {

lib/Acme/Greeting/zh_tw.pm  view on Meta::CPAN

package Acme::Greeting::en;
use utf8;

# No code

1;

__DATA__

=head1 NAME

Acme::Greeting::zh_tw - How people do greeting in English.