1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
## no critic (Modules::ProhibitMultiplePackages)
use strict;
use warnings;
use Test::More;
use DateTime;
{
package DateTime::MySubclass;
use base 'DateTime';
sub duration_class {'DateTime::Duration::MySubclass'}
package DateTime::Duration::MySubclass;
use base 'DateTime::Duration';
sub is_my_subclass {1}
}
my $dt = DateTime::MySubclass->now;
my $delta = $dt - $dt;
isa_ok( $delta, 'DateTime::Duration::MySubclass' );
isa_ok( $dt + $delta, 'DateTime::MySubclass' );
my $delta_days = $dt->delta_days($dt);
isa_ok( $delta_days, 'DateTime::Duration::MySubclass' );
done_testing();
|
