The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
1234567891011121314 #!/usr/bin/perluse strict;use warnings;use Test::More tests => 5;use BSON;my $ts = BSON::Timestamp->new(0x1234, 0x5678);isa_ok( $ts, 'BSON::Timestamp' );is( $ts->seconds, 0x1234 );is( $ts->increment, 0x5678 );is( $ts->seconds(0x4321), 0x4321 );is( $ts->increment(0x8765), 0x8765 );
#!/usr/bin/perl
use
strict;
warnings;
Test::More
tests
=> 5;
BSON;
my
$ts
= BSON::Timestamp->new(0x1234, 0x5678);
isa_ok(
,
'BSON::Timestamp'
);
is(
->seconds, 0x1234 );
->increment, 0x5678 );
->seconds(0x4321), 0x4321 );
->increment(0x8765), 0x8765 );