> 1,
#keywords => undef,
);
__PACKAGE__->set(
# Objectify options
json_method => 'TO_JSON',
object => '$data',
#object => '{$class_str : $data}',
overloads
ct => $tag_method );
}
sub _objectify_via_json {
my $self = shift;
my $object = shift;
return $self->_objectify_via( $object => $self->get('json_method') );
}
# Override Datify::obje
a = $self->arrayify( $object->$tag('JSON') );
} elsif ( my $to_json = $self->_objectify_via_json($object) ) {
$data = $self->scalarify( $object->$to_json() );
} elsif ( my $method = $s