Select Code to Download

use POSIX;

use POSIX qw< ceil floor >;

 > exports
Usage: exports [-a] [ Perl::Module [...] ] [ file [...] ]
...
    If no module names are listed, then searches each file for
    cases of 'use Perl::Module;' and suggests replacements.
    -a: Searches for *any* exports, not just default ones.

 > grep POSIX ASAP/Client.pm
ASAP/Client.pm:use POSIX;

 > exports POSIX ASAP/Client.pm
ASAP/Client.pm:
   107:     strftime("%Y-%m-%dT%T$fs Z", gmtime($sec));
            strftime
# use POSIX               qw< strftime >;

 > exports bin/mktestcalls
bin/mktestcalls:
...
# use Sys::Hostname       qw< hostname >;
# use Sys::Syslog         qw< openlog syslog >;
# use Getopt::Long        qw< GetOptions >;

 > grep use bin/mktestcalls
use strict;
...
use Sys::Syslog;
use Sys::SigAction 'set_sig_handler';
use Getopt::Long;

 > exports -a List::Util lib/Track.pm
lib/Track.pm:
...
  1867:                 # S() = max call duration in seconds
                                max
# use List::Util          qw< max min shuffle >;

 > exports File::Basename File::Glob
File::Basename 2.78:
...
    basename
    dirname
File::Glob 1.07:

 > exports -a File::Basename File::Glob
File::Basename 2.78:
...
    GLOB_NOSPACE
    GLOB_QUOTE
    GLOB_TILDE

 > exports POSIX exports
exports:
   121:         or  die "Can't rewind handle to $file: $!\n";
                               rewind
# use POSIX               qw< rewind >;

 > exports say
say:
# use Encode();           # Not used?

 > grep Encode say
use Encode;
        } elsif( Encode::is_utf8($_) ) {

#!/usr/bin/perl -w
use strict;
...
        }
    }
}