File Coverage

blib/lib/Lingua/Pangram.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	5	5	100.0
pod	0	2	0.0
total	28	30	93.3

package Lingua::Pangram;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use locale; # for correct lowercasing of 8-bit chars

require Exporter;

@ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw( );
$VERSION = '0.02';


# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

sub new {
    my $class = shift;
    my $alphabet = shift || [ 'a' .. 'z' ];
    my $self  = bless $alphabet, $class;
    return $self;
}#new


sub pangram {
    my $self = shift;
    my $string = lc shift;

    my $ret = 1;
    foreach my $letter (@$self) {
        $ret = 0 if index($string, $letter) == -1;
    }

    return $ret;
}#pangram

1;
__END__