1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!perl -T use 5.006; use strict; use warnings FATAL => 'all'; use Test::More; BEGIN { use_ok( 'AdminPanel::Shared::JournalCtl' ) || print "JournalCtl failed!\n"; } ok( my $o = AdminPanel::Shared::JournalCtl->new(), 'create'); ok( my $c = $o->get(), 'gets_log' ); done_testing;