1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#!perl use strict;use warnings;use Test::Most 'die';use Data::Printer;use Data::TagsAndRanges; my $obj = Data::TagsAndRanges->new();ok($obj,'constructor works'); lives_ok { $obj->set({ value => 1234, });} 'setting'; cmp_ok($obj->get({}),'==',1234, 'getting'); lives_ok { $obj->clear } 'clearing the object'; done_testing();