Select Code to Download

Select or download this

use Test::More qw(noplan);
use Data::BFDump;

is(Data::BFDump->Dump([1..10]),"( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 )","Ba
+sic list");
is(Data::BFDump->Dump([\1]),"\do{ my $t=1 }","Scalar Ref");

Select or download this

TODO:{
  local $TODO="Not implemented yet";
  is(Data::BFDump->Dump([1..10]),"( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 )","
+Basic list");
  is(Data::BFDump->Dump([\1]),"\do{ my $t=1 }","Scalar Ref");
}