The only one used is called fully-qualified anyway
use lib qw(t/lib);
use DBICTest;
-use POSIX qw(ceil);
+use POSIX ();
my $schema = DBICTest->init_schema();
$to_pos++;
$to_group = ($to_group % 3) + 1;
$to_group_2_base++;
- $to_group_2 = (ceil($to_group_2_base/3.0) %3) +1
+ $to_group_2 = (
+ POSIX::ceil( $to_group_2_base / 3.0 ) % 3
+ ) + 1;
}
}
foreach my $group_id_2 (1..4) {
use base 'MyBase';
use Time::Piece::MySQL;
-use POSIX;
+use POSIX ();
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/id message datetime_stamp/);
# Devel::MAT::Dumper::dumpfh( $fh );
# close ($fh) or die $!;
#
-# use POSIX;
+# require POSIX;
# POSIX::_exit(1);
# }
}