1use 5.014; 2 3use strict; 4use warnings; 5use routines; 6 7use Test::Auto; 8use Test::More; 9 10=name 11 12Data::Object::ClassHas 13 14=cut 15 16=abstract 17 18Attribute Builder for Data-Object Class 19 20=cut 21 22=inherits 23 24Data::Object::Attributes 25 26=cut 27 28=synopsis 29 30 package main; 31 32 # use Data::Object::Class; 33 34 use Data::Object::ClassHas; 35 36 1; 37 38=cut 39 40=description 41 42This package provides options for defining class attributes. 43 44=cut 45 46package main; 47 48my $test = testauto(__FILE__); 49 50my $subs = $test->standard; 51 52$subs->synopsis(fun($tryable) { 53 ok my $result = $tryable->result; 54 55 $result 56}); 57 58ok 1 and done_testing; 59