File Coverage

blib/lib/Tie/Plural.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition	6	6	100.0
subroutine	7	7	100.0
pod	1	1	100.0
total	43	43	100.0

=for gpg
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

=head1 NAME

Tie::Plural - Select a string variant based on a quantity.

=head1 VERSION

This documentation describes version 0.01 of Plural.pm, January 07, 2005.

=cut

use strict;
package Tie::Plural;
$Tie::Plural::VERSION = '0.01';
use Carp;

# If exporting symbols:
use Exporter;
use vars qw/@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS %pl/;
@ISA         = qw/Exporter/;
@EXPORT      = qw/%pl/;
@EXPORT_OK   = qw/plural/;
%EXPORT_TAGS = (all => [@EXPORT, @EXPORT_OK]);

tie %pl, 'Tie::Plural';

sub plural ($;$$$)
{
    my ($num, $plural, $sing, $zero) = @_;

    defined or $_ = ''      for $sing;
    defined or $_ = 's'     for $plural;
    defined or $_ = $plural for $zero;

    my $s = $num==0? $zero : $num==1? $sing : $plural;
    return $s;
}

sub TIEHASH
{
    my $class = shift;
    my $dummy;  # not used;
    bless \$dummy, $class;
}

sub FETCH
{
    my $self = shift;
    my $key  = shift;

    my ($n, $p, $s, $z) = split $;, $key;
    return plural ($n, $p, $s, $z);
}


1;
__END__