App-Kit
view release on metacpan or search on metacpan
lib/App/Kit.pm view on Meta::CPAN
use App::Kit::Util::RW; # must be loaded before App::Kit is use()d
use App::Kit;
or
BEGIN { $ENV{'App-Kit-Util-RW'} = 1; }; # must be set before App::Kit is use()d
use App::Kit;
then:
$app->log($test_logger); # e.g. say $test_logger stores what level and msg are called/given
⦠something that should call $app->log->info('This is a terrible info msg.') â¦
⦠test that $test_logger saw the expected levels and msgs â¦
The former might be desirable if you want to keep ENV clean, the latter for when you want to do/skip certain tests based on if it is true or not:
App-Kit-Util-RW=1 prove -w t
=head1 INTERFACE
=head2 auto imports
=head3 strict and warnings enabled automatically
=head3 try/catch/finally imported automatically (unless you say not to)
L<Try::Tiny> is enabled automatically unless you pass import() â-no-tryâ flag (Yoda was right: there *is* -no-try!):
use App::Kit '-no-try';
same goes for your App::Kit based object:
use My::App '-no-try';
=head2 constructors: multiton support
( run in 1.288 second using v1.01-cache-2.11-cpan-d7a12ab2c7f )