view release on metacpan or  search on metacpan

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

our $CHUNK_SIZE = 256*1024;

my $terminating :shared = 0;
my $terminating_force :shared = 0;


sub log_info
{
	my ($msg) = @_;
	$msg = "Unknown" unless $msg;
	my $dts = DateTime->now(time_zone => POSIX::strftime("%z", localtime), locale => "en")->strftime('%x %T %z');
	$msg = "[$dts] $msg";
	say $msg;
}

sub main
{
	log_info "Starting p5-cdnget/${App::cdnget::VERSION}";
	eval
	{
		my $cmdargs = commandArgs({ valuableArgs => 1, noCommand => 1 }, @_);

lib/App/cdnget/Exception.pm  view on Meta::CPAN

sub msg :lvalue
{
	my $self = shift;
	my ($msg) = @_;
	my @args = @_;
	if (@args >= 1 and not ref($msg))
	{
		$msg = "Unknown" unless $msg;
		my $dts = DateTime->now(time_zone => POSIX::strftime("%z", localtime), locale => "en")->strftime('%x %T %z');
		$msg = "[$dts] $msg";
		$args[0] = $msg;
	}
	$self->SUPER::msg(@args);
}


1;
__END__
=head1 REPOSITORY