App-grepdate

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "Pod::Coverage::TrustPod" : "0",
            "Test::Perl::Critic" : "0",
            "Test::Pod" : "1.41",
            "Test::Pod::Coverage" : "1.08"
         }
      },
      "runtime" : {
         "recommends" : {
            "Date::Extract::ID" : "0",
            "DateTime::Format::Alami::EN" : "0.13",
            "DateTime::Format::Alami::ID" : "0.13"
         },
         "requires" : {
            "Date::Extract::PERLANCAR" : "0",
            "Getopt::Long" : "0",
            "perl" : "5.010001",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {

META.yml  view on Meta::CPAN

  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-grepdate
recommends:
  Date::Extract::ID: '0'
  DateTime::Format::Alami::EN: '0.13'
  DateTime::Format::Alami::ID: '0.13'
requires:
  Date::Extract::PERLANCAR: '0'
  Getopt::Long: '0'
  perl: '5.010001'
  strict: '0'
  warnings: '0'
resources:
  bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=App-grepdate
  homepage: https://metacpan.org/release/App-grepdate
  repository: git://github.com/perlancar/perl-App-grepdate.git

dist.ini  view on Meta::CPAN

:version=0.58
[Prereqs]
perl=5.010001
strict=0
warnings=0
Date::Extract::PERLANCAR=0
Getopt::Long=0

[Prereqs / RuntimeRecommends]
Date::Extract::ID=0
DateTime::Format::Alami::EN=0.13
DateTime::Format::Alami::ID=0.13

script/grepdate  view on Meta::CPAN

    exit 99 if !$res;

    if ($Opts{parser} eq 'Date::Extract::PERLANCAR') {
        require Date::Extract::PERLANCAR;
        $Parser = Date::Extract::PERLANCAR->new(format => 'combined');
        $Code_Parse = sub { $Parser->extract($_[0]) };
    } elsif ($Opts{parser} eq 'Date::Extract::ID') {
        require Date::Extract::ID;
        $Parser = Date::Extract::ID->new(format => 'combined');
        $Code_Parse = sub { $Parser->extract($_[0]) };
    } elsif ($Opts{parser} eq 'DateTime::Format::Alami::EN') {
        require DateTime::Format::Alami::EN;
        $Parser = DateTime::Format::Alami::EN->new;
        $Code_Parse = sub {
            my $h;
            eval { $h = $Parser->parse_datetime($_[0], {format=>'combined'}) };
            return undef if $@;
            $h;
        };
    } elsif ($Opts{parser} eq 'DateTime::Format::Alami::ID') {
        require DateTime::Format::Alami::ID;
        $Parser = DateTime::Format::Alami::ID->new;
        $Code_Parse = sub {
            my $h;
            eval { $h = $Parser->parse_datetime($_[0], {format=>'combined'}) };
            return undef if $@;
            $h;
        };
    }
}

sub run {

script/grepdate  view on Meta::CPAN

=head1 OPTIONS

=over

=item * --reverse, -v

=item * --parser=s (default: Date::Extract::PERLANCAR)

Choose either L<Date::Extract::PERLANCAR>, L<Date::Extract::ID>,
L<DateTime::Format::Alami::EN>, L<DateTime::Format::Alami::ID>.

=back

=head1 FAQ

=head1 HOMEPAGE

Please visit the project's homepage at L<https://metacpan.org/release/App-grepdate>.

=head1 SOURCE