view release on metacpan or  search on metacpan

lib/App/Netsync/Scribe.pm  view on Meta::CPAN

package App::Netsync::Scribe; #XXX Log::Message?

=head1 NAME

App::Netsync::Scribe - I/O framework

=head1 DESCRIPTION

This package handles I/O automatically.

=head1 SYNOPSIS

 use App::Netsync::Scribe;

 print timestamp;
 note('foo.txt','Don't stamp this note.',0);

=cut


use 5.006;
use strict;
use warnings FATAL => 'all';
use autodie; #XXX Is autodie adequate?
use feature 'say';

use File::Basename;
use POSIX;
use version;

our ($SCRIPT,$VERSION);
our %files;

BEGIN {
    ($SCRIPT)  = fileparse ($0,"\.[^.]*");
    ($VERSION) = version->declare('v4.0.0');

    require Exporter;
    our @ISA = ('Exporter');
    our @EXPORT_OK = ('note','timestamp');
}


=head1 METHODS

=head2 timestamp

returns an string representing the current time

B<Arguments>

I<( [ $format ] )>

=over 3

=item format

the POSIX time-string format to use

default: '%Y-%m-%d-%H:%M:%S'

=back

=cut