Select Code to Download

package Thing;

...
}

1;

#!/usr/bin/perl

...
$test->data( $data );

print Dumper $test->data;

$VAR1 = {
          '4' => 'four',
...
Attribute (_data) does not pass the type constraint because: Validatio
+n failed for 'ArrayRef' with value 1 at /Thing.pm line 30
        Thing::data('Thing=HASH(0x1c41a68)', 'ARRAY(0x1caa868)') calle
+d at ./test.pl line 18

$VAR1 = [
          {
...
            'bl' => 'another'
          }
        ];