From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
12345678910 # Tests for overloads (+,-,<,>, etc)use strict;use warnings;use Test::More tests => 1;use Time::Piece;my $t = localtime;my $s = Time::Seconds->new(15);eval { my $result = $t + $s };is($@, "", "Adding Time::Seconds does not cause runtime error");
# Tests for overloads (+,-,<,>, etc)
use
strict;
warnings;
Test::More
tests
=> 1;
Time::Piece;
my
$t
=
localtime
;
$s
= Time::Seconds->new(15);
eval
{
$result
+
};
is($@,
""
,
"Adding Time::Seconds does not cause runtime error"
);