view release on metacpan or  search on metacpan

t/120_tmzone.pl  view on Meta::CPAN

6
7
8
9
10
11
12
13
14
15
16
17
18
use Config;
use POSIX::strftime::GNU;
use POSIX qw(strftime);
use Time::Local;
 
if ($Config{d_setlocale}) {
    POSIX::setlocale(&POSIX::LC_TIME, 'C');
}
 
my $fmt = shift @ARGV || '%z';
my @t = @ARGV ? localtime timelocal(@ARGV) : localtime;
 
print strftime $fmt, @t;

xs/ppport.h  view on Meta::CPAN

3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
  if ($opt{hints} && exists $hints{$func} && !$given_hints{$func}++) {
    my $hint = $hints{$func};
    $hint =~ s/^/   /mg;
    print "   --- hint for $func ---\n", $hint;
  }
  $rv;
}
 
sub usage
{
  my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
  my %M = ( 'I' => '*' );
  $usage =~ s/^\s*perl\s+\S+/$^X $0/;
  $usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
 
  print <<ENDUSAGE;
 
Usage: $usage
 
See perldoc $0 for details.
 
ENDUSAGE
 
  exit 2;
}
 
sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
  eval { require Devel::PPPort };
  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
  if (eval \$Devel::PPPort::VERSION < $VERSION) {
    die "$0 was originally generated with Devel::PPPort $VERSION.\\n"
      . "Your Devel::PPPort is only version \$Devel::PPPort::VERSION.\\n"

xt/cover.pl  view on Meta::CPAN

8
9
10
11
12
13
14
15
16
17
18
19
use File::Spec;
use Cwd;
 
BEGIN {
    chdir dirname(__FILE__) or die "$!";
    chdir '..' or die "$!";
};
 
do "./Build.PL";
 
local @ARGV = (@ARGV, 'testcover');
do "./Build";