# represent an XML object. Rather, every container will use this object to
# maintain the context for its children.
-my %isAbsolute = map { $_ => !!1 } qw(
+my %isAbsolute = map { $_ => ~~1 } qw(
ROW
COL
);
return $self;
}
+sub use_unicode { $_[0]->{UNICODE} && 1 }
+
sub _find_param_in_map
{
my $self = shift;
next unless exists $map->{$param};
$depth--, next if $depth;
- $found = !!1;
+ $found = ~~1;
$val = $map->{$param};
last;
}
$self->{$key} = $self->resolve($obj, $key);
}
- return !!1;
+ return ~~1;
}
sub exit_scope
pop @{$self->{STACK}};
- return !!1;
+ return ~~1;
}
sub get
push @{$self->{REFERENCES}{$ref}}, [ $row, $col ];
- return !!1;
+ return ~~1;
}
sub get_all_references