197 |
$self->data; |
$self->data; |
198 |
} |
} |
199 |
|
|
200 |
package Frey::Role::as_data; |
package Frey::Role::as_sponge; |
201 |
use Moose::Role; |
use Moose::Role; |
202 |
sub as_sponge { |
sub as_sponge { |
203 |
my ($self) = @_; |
my ($self) = @_; |
216 |
Frey::Role::as_sponge->meta->apply( $instance ); |
Frey::Role::as_sponge->meta->apply( $instance ); |
217 |
warn "# apply as_sponge role to $class"; |
warn "# apply as_sponge role to $class"; |
218 |
} |
} |
219 |
|
|
220 |
|
$self->add_status({ $class => $params }) if $self->can('add_status'); |
221 |
return $instance; |
return $instance; |
222 |
} |
} |
223 |
|
|