1234567891011121314151617181920 package Evo::EA::AgentClause;sub new { my ($class) = @_; my $self = { clause => undef, }; $class = ref($class) || $class; bless $self, $class;}### derived should be returning the clause's system returnsub parse { my ($self) = @_; return $self->{clause};};1;
package
Evo::EA::AgentClause;
sub
new {
my
(
$class
) =
@_
;
$self
= {
clause
=>
undef
, };
=
ref
) ||
bless
,
}
### derived should be returning the clause's system return
parse {
return
->{clause};
};
1;