view release on metacpan or  search on metacpan

lib/Pinwheel/Helpers/Text.pm  view on Meta::CPAN

    }
    push @$parts, ['</p>'];

    return Pinwheel::View::String->new($parts);
}
*p = *simple_format;

sub cycle
{
    my ($ctx, $key, $i);
    $key = (caller)[2] . "\t" . CORE::join("\t", @_);
    $ctx = Pinwheel::Context::get('render');
    $i = $ctx->{cycle}{$key}++;
    return $_[$i % scalar(@_)];
}

sub pluralize
{
    my ($count, $singular, $plural) = @_;
    return $singular if $count == 1;
    return $plural if defined($plural);