File Coverage

blib/lib/HTML/DOM/Event/Mutation.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	2	100.0
condition			n/a
subroutine	12	12	100.0
pod	7	7	100.0
total	51	51	100.0

package HTML::DOM::Event::Mutation;

our $VERSION = '0.057';

use warnings; no warnings qw 'utf8 parenthesis';
use strict;

require HTML::DOM::Event;
our @ISA = HTML::DOM::Event::;

use constant 1.03 { ADDITION=>2, MODIFICATION=>1, REMOVAL=>3 };

use Exporter 5.57 'import';
our @EXPORT_OK = qw 'ADDITION MODIFICATION REMOVAL';
our %EXPORT_TAGS = (all => \@EXPORT_OK);


sub relatedNode          { $_[0]{rel_node      }||() }
sub prevValue        { $_[0]{prev_value    } }
sub newValue          { $_[0]{new_value      } }
sub attrName        { $_[0]{attr_name   } }
sub attrChange        { $_[0]{attr_change_type    } }

sub initMutationEvent {
	my $self = $_[0];
	my $x;
	$self->init(map +($_ => $_[++$x]),
		qw( type propagates_up cancellable rel_node prev_value
                    new_value attr_name attr_change_type )
	);
	return;
}

sub init {
	my $self = shift;
	my %args = @_;
	my %my_args = map +($_ => delete $args{$_}),
		qw( rel_node prev_value new_value attr_name
		    attr_change_type );
	$self->SUPER::init(%args);
	%$self = (%$self, %my_args);
	return;
}


*|||*|||*|||*|||*|||*|||*|||*|||*|||*|||*|||*|||*|||*|||*|||*|||*|||*|

__END__