view release on metacpan or  search on metacpan

lib/Crop/Object/Collection.pm  view on Meta::CPAN

	
Returns:
	string - class name
=cut
sub Class { shift->{class} }

=begin nd
Method: Cleanup ( )
	Remove all the items from Collection.
	
	Still alive items in the warehouse.
Returns:
	$self
=cut
sub Cleanup {
	my $self = shift;
	
	$self->{elements} = [];
	$self->{simple}   = [] if exists $self->{simple};
	
	$self;