view release on metacpan or  search on metacpan

lib/Form/Processor/Field/DateTimeManip.pm  view on Meta::CPAN

}

sub format_value {
    my $self = shift;

    return unless my $value = $self->value;
    die "Value is not a DateTime" unless $value->isa( 'DateTime' );

    my $d = $value->strftime( '%a, %b %e %Y %l:%M %p %Z' );

    # The calendar javascript popup can't parse the day & hour with a leading space,
    # so remove.
    $d =~ s/\s(\s\d:)/$1/;
    $d =~ s/\s(\s\d\s\d{4})/$1/;


    return ( $self->name => $d );

}

share/passwords.txt  view on Meta::CPAN

portrait
portofin
porthole
porte
porovoz123
pornoo
porn12
Porn1
porn01
porksoda
popup
poptop
popping
poppel
popop
poper22
popcorn2
popapopa
popa123
pooters
pootang