File Coverage

blib/lib/Acme/Greeting.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

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};

    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) {
        push @greeting, __PACKAGE__ . ' says hi, $u';
    }

    my $greeting = $last;
    while ($greeting eq $last) {
        $greeting = $greeting[ int(rand(@greeting)) ];
        $greeting =~ s/\$u/$opt{target}/g;
    }

    $last = $greeting;
    return $greeting;
}

"Greeting";

__END__