Why not adopt me?
This distribution is up for adoption!
If you're interested then please contact the PAUSE module admins via
email.
Name
qbit - Setup envirement to development modern perl applications and add some functions.
Description
Using this pragma is equivalent:
use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std utf8);
use Scalar::Util qw(set_prototype blessed dualvar isweak readonly refaddr reftype tainted weaken isvstring looks_like_number);
use Data::Dumper qw(Dumper);
use Clone qw(clone);
use qbit::Exceptions;
use qbit::Log;
use qbit::Array;
use qbit::Hash;
use qbit::GetText;
use qbit::Packages;
use qbit::StringUtils;
use qbit::Date;
use qbit::File;
Synopsis
use qbit;
sub myfunc {
my ($a1, $a2) = @_;
throw Exception::BadArguments gettext('First argument must be defined')
unless defined($a1);
return ....
}
try {
my $data = myfunc(@ARGV);
ldump($data);
} catch Exception::BadArguments with {
l shift->as_string();
};
Internal packages
- qbit::Exceptions - realize base classes and functions to use exception in perl;
- qbit::Log - there're some function to simple logging;
- qbit::Array - there're some function to working with arrays;
- qbit::Hash - there're some function to working with hashes;
- qbit::GetText - there're some function to internationalization your's software;
- qbit::Packages - there're some function to access package internals;
- qbit::StringUtils - there're some function to working with strings;
- qbit::Date - there're some function to working with dates;
- qbit::File - there're some function to manage files.