view release on metacpan or  search on metacpan

lib/Siffra/Bootstrap.pm  view on Meta::CPAN

    use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
    $VERSION = '0.11';
    @ISA     = qw(Siffra::Tools Exporter);

    #Give a hoot don't pollute, do not export more than needed by default
    @EXPORT      = qw();
    @EXPORT_OK   = qw();
    %EXPORT_TAGS = ();
} ## end BEGIN

UNITCHECK
{
    # eval { use Fcntl qw(:flock); };
    # $log->info( "Tentando lockar o programa [ $0 ]..." );
    # unless ( flock( DATA, LOCK_EX | LOCK_NB ) )
    # {
    #     $log->warn( "O programa [ $0 ] já está sendo executado. Saindo." );
    #     exit( 1 );
    # }
    # $log->info( "Programa [ $0 ] lockado com sucesso..." );
} ## end UNITCHECK

#################### subroutine header begin ####################

=head2 sample_function

 Usage     : How to use this function/method
 Purpose   : What it does
 Returns   : What it returns
 Argument  : What it wants to know
 Throws    : Exceptions and other anomolies