use utf8;
use Test2::V0;
use Data::Dumper;
+use DateTime;
+use DateTime::Format::RFC3339;
+use Math::BigInt;
+use Math::BigFloat;
use TOML::Tiny;
binmode STDIN, ':encoding(UTF-8)';
my $expected1 = {
'ints' => [
bless( {
+ 'name' => '<Custom Code>',
+ 'operator' => 'CODE(...)',
'_file' => '(eval 47)',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
},
'_lines' => [
6
- ],
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ ]
}, 'Test2::Compare::Custom' ),
bless( {
+ 'name' => '<Custom Code>',
+ 'operator' => 'CODE(...)',
'_file' => '(eval 112)',
- '_lines' => [
- 6
- ],
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
require Math::BigInt;
'Math::BigInt'->new('2')->beq($_);
},
- 'operator' => 'CODE(...)',
- 'name' => '<Custom Code>'
+ '_lines' => [
+ 6
+ ]
}, 'Test2::Compare::Custom' ),
bless( {
- '_file' => '(eval 113)',
- 'name' => '<Custom Code>',
'operator' => 'CODE(...)',
+ 'name' => '<Custom Code>',
'code' => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
use strict;
require Math::BigInt;
'Math::BigInt'->new('3')->beq($_);
},
+ '_file' => '(eval 113)',
'_lines' => [
6
]