Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...

ok($song{2}->{order} == 2);
ok($song{1}->{time} eq '2:00');

package DbLibTry;

use strict;
...
}

1;

#!/usr/bin/env perl
use strict;
use warnings;
...
my %hash = %{$dblibtry->get_all_songs};
$dblibtry->disconnect;
say Dumper %hash;

$ perl dblibtry.t
1..10
ok 1 - Defined DbLibTry=HASH(0x8847860)
...
# Looks like you planned 10 tests but ran 6.
# Looks like your test exited with 255 just after 6.
$