[dcoleman@test1-cm3 perl]$ sudo cpanm DateTime
DateTime is up to date. (1.18)
[dcoleman@test1-cm3 perl]$ sudo cpanm Params::Validate
Params::Validate is up to date. (1.18)
####
my $dtNow = DateTime->now;
####
Software error:
Bareword "SCALAR" not allowed while "strict subs" in use at /var/www/lib/perl/DateTime/Duration.pm line 17.
Bareword "SCALAR" not allowed while "strict subs" in use at /var/www/lib/perl/DateTime/Duration.pm line 17.
Bareword "SCALAR" not allowed while "strict subs" in use at /var/www/lib/perl/DateTime/Duration.pm line 17.
Bareword "SCALAR" not allowed while "strict subs" in use at /var/www/lib/perl/DateTime/Duration.pm line 17.
Bareword "SCALAR" not allowed while "strict subs" in use at /var/www/lib/perl/DateTime/Duration.pm line 17.
Bareword "SCALAR" not allowed while "strict subs" in use at /var/www/lib/perl/DateTime/Duration.pm line 17.
Bareword "SCALAR" not allowed while "strict subs" in use at /var/www/lib/perl/DateTime/Duration.pm line 17.
Bareword "SCALAR" not allowed while "strict subs" in use at /var/www/lib/perl/DateTime/Duration.pm line 17.
Compilation failed in require at /var/www/lib/perl/DateTime.pm line 10.
BEGIN failed--compilation aborted at /var/www/lib/perl/DateTime.pm line 10.
Compilation failed in require at /var/www/lib/perl/JobQJob.pm line 36.
BEGIN failed--compilation aborted at /var/www/lib/perl/JobQJob.pm line 36.
Compilation failed in require at /var/www/admin/cgi-bin/pushlive.pl line 27.
BEGIN failed--compilation aborted at /var/www/admin/cgi-bin/pushlive.pl line 27.
For help, please send mail to the webmaster (root@localhost), giving this error message and the time and date of the error.
####
package DateTime::Duration;
use strict;
use Params::Validate qw( validate SCALAR );
. . .
sub new
{
my $class = shift;
my %p = validate( @_,
{ years => { type => SCALAR, default => 0 },
months => { type => SCALAR, default => 0 },
weeks => { type => SCALAR, default => 0 },
days => { type => SCALAR, default => 0 },
hours => { type => SCALAR, default => 0 },
minutes => { type => SCALAR, default => 0 },
seconds => { type => SCALAR, default => 0 },
end_of_month => { type => SCALAR, default => 'wrap' },
} );
. . .