The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

HOOO / Weed-0.011_020 / lib / Weed.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
—
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138

              
package Weed;
use Weed::Perl;
use 5.008008;
our $VERSION = '0.011';
use warnings::register;
use Filter::EOF;
sub import {
        shift;
        strict::import;
        warnings::import;
        #warnings::unimport('redefine');
        Weed::Perl->export_to_level(1);
        my $package = scalar caller;
        Weed::Package::createType( $package, 'X3DUniversal', @_ );
        Filter::EOF->on_eof_call( sub { $package->Weed::Package::initializeType; } );
}
use Weed::Environment;
1;
__END__
no warnings 'redefine';
=head1 NAME
Weed - Don't use it. It's in development. For test purposes only!
=head1 CAVEATS
Don't use it. It's in development. For test purposes only!
=head1 SYNOPSIS
        use Weed;
=head1 DESCRIPTION
Importing Weed overloads CORE::time with Time::Hires::time. All possible restrictions and
all possible warnings are enabled.
=head1 EXPORTS
=head2 NO
Is not YES.
=head2 YES
Is not NO.
=head1 ENVIRONMENT
Type list ...
=head1 TYPE CREATION
=head2 SYNOPSIS
        package BasePackage;
         
        use Weed 'Object';
         
        use Weed 'Scalar ()';
        use Weed 'Array []';
        use Weed 'Hash {}';
         
        use Weed 'Type : Supertype {}';
        use Weed 'Type : Supertype Supertypes {}';
Creates a new type in each case and binds this to the base package.
        sub new { shift->NEW }
         
        my $object = new Type;
=head2 FUNCTION IMPORT
In some cases you need a function directly in your type.
        package BasePackage;
         
        use Weed 'Type ()', 'new', ...;
         
        sub new { ... }
Get's Type a &new method.
=head2 INTERFACE
=head3 SET_DESCRIPTION(type, description)
Is called one time on import.
=head2 UNIVERSAL OBJECT
If you havn't specified any supertype then the following functions are available.
=head2 OVERLOADS
        bool => Returns YES.
        int  => Same as getId.
        <=>  => Compares two object ids.
        cmp  => Compares two objects stringwise.
        ""   => Same as toString.
=head2 METHODS
=head3 NEW
Returns a new instance. A new type should specify its own 'new' method.
=head3 getType
Returns the type of the object as string.
=head3 getId
Returns the id of the object as integer.
=head3 getHierarchy
Returns an array reference.
=head3 toString
Same as overload::StrVal. A new type should specify its own 'toString' method.
=cut
# 44217
# return copy of value instead copy of object