package Iotta::Copp::InitMeta;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");

my $ws = "[ \t\n]";

sub run {
	my $self = shift;
	my $meta = shift;
	my $data = shift;
	my @lst;
	my %def_meth = (
		"event" => "co_o_default_event",
		"delete" => "co_o_#FLAV#_delete",
		"clone" => "co_o_#FLAV#_clone",
		"destroy2" => "co_o_#FLAV#_destroy"
		#"has_method" => "co_os_method",
		#"sclone" => "#OBJ#_clone_shallow",
		#"dclone" => "co_clone_deep",
		#"fclone" => "co_clone_full",
		#"dclone_c" => "co_clone_clean",
		#"fclone_c" => "co_clone_clean_full"
	);

	$$meta{idlist} = [];
	$$meta{objs} = [];
	$$meta{meths} = [];
	$$meta{def_meth} = \%def_meth;
	$self->next->run ($meta, $data) if ($self->next);
}

1;