App-Nag

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: App-Nag
requires:
  DateTime: 0
  DateTime::TimeZone: 0
  File::Temp: 0
  Getopt::Long::Descriptive: 0
  Gtk2: 0
  Gtk2::Notify: 0
  Modern::Perl: 0
  constant: 0
version: 0.002

Makefile.PL  view on Meta::CPAN

  ],
  'LICENSE' => 'perl',
  'NAME' => 'App::Nag',
  'PREREQ_PM' => {
    'DateTime' => '0',
    'DateTime::TimeZone' => '0',
    'File::Temp' => '0',
    'Getopt::Long::Descriptive' => '0',
    'Gtk2' => '0',
    'Gtk2::Notify' => '0',
    'Modern::Perl' => '0',
    'constant' => '0'
  },
  'VERSION' => '0.002',
  'test' => {
    'TESTS' => 't/*.t'
  }
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {

bin/nag  view on Meta::CPAN

#!/usr/bin/perl
# PODNAME: nag
# ABSTRACT: send yourself a reminder

use Modern::Perl;
use App::Nag;

# do initial validation of arguments
my ( $opt, $usage, $name ) = App::Nag->validate_args;

# now we validate the time expression
my ( $verbosity, $text, $synopsis, $seconds ) =
  App::Nag->validate_time( $opt, $usage, @ARGV );

# still good, so we run it

lib/App/Nag.pm  view on Meta::CPAN

package App::Nag;
BEGIN {
  $App::Nag::VERSION = '0.002';
}

# ABSTRACT: send yourself a reminder


use Modern::Perl;
use Getopt::Long::Descriptive qw(describe_options prog_name);

# some icon specs
use constant PHRASE    => [qw(psst hey HEY !!!)];
use constant STROKE    => [qw(0000ff 0000ff ff0000 ff0000)];
use constant FILL      => [qw(ffffff ffffff ffffff ffff00)];
use constant OPACITY   => [ 0, 1, 1, 1 ];
use constant FONT_SIZE => [ 20, 25, 28, 32 ];
use constant XY        => [ [ 8, 40 ], [ 9, 40 ], [ 7, 41 ], [ 3, 43 ] ];

t/arg_validation.t  view on Meta::CPAN

#!/usr/bin/perl

use Modern::Perl;
use App::Nag;
use DateTime;
use DateTime::TimeZone;

use Test::More;
use Test::Fatal;

# this all could be cleaned up a bit

my (

 view all matches for this distribution
 view release on metacpan -  search on metacpan