qw(all);
use JSON;
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
use HTML::Linear::Path::Colors;
## no critic (ProhibitPackageVars)
our $VERSION = '0.019'; # VERSION
has json => (
is => 'ro',
isa => InstanceOf['JSON'],
default => sub { JSON->new->ascii->canonical },
lazy => 1,
);
has address => (is => 'rw', isa => Str, required =
$ref->{attr} = $self->attributes if keys %{$self->attributes};
return $self->key($self->json->encode($ref));
}
sub as_xpath {
my ($self, $strict) = @_;
my $xpath = _wrap(separator