view release on metacpan or  search on metacpan

lib/App/XUL/Object.pm  view on Meta::CPAN

	return main::push({'action' => 'numchildren', 'id' => $self->{'id'}});
}

sub insert
{
	my ($self, $xml, $pos) = @_;
	$pos = 'end' unless defined $pos; # pos: end|start|...
	return main::push({'action' => 'insert', 'id' => $self->{'id'}, 'position' => $pos, 'content' => $xml});
}

sub update
{
	my ($self, @xml) = @_;
	my $xml = join '', @xml;
	return main::push({'action' => 'update', 'id' => $self->{'id'}, 'content' => $xml});
}

sub remove
{
	my ($self) = @_;
	return main::push({'action' => 'remove', 'id' => $self->{'id'}});