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