File Coverage

blib/lib/MarpaX/ESLIF/URI/_generic/ValueInterface.pm

Criterion	Covered	Total	%
statement	45	46	97.8
branch	1	2	50.0
condition			n/a
subroutine	14	16	87.5
pod	0	8	0.0
total	60	72	83.3

use strict;
use warnings FATAL => 'all';
#
# This package is built with performance in minde, so this is old-style
#
package MarpaX::ESLIF::URI::_generic::ValueInterface;

our $VERSION = '0.006'; # VERSION

our $AUTHORITY = 'cpan:JDDPAUSE'; # AUTHORITY

# ABSTRACT: MarpaX::ESLIF's URI Value Interface

use Carp qw/croak/;
use vars qw/$AUTOLOAD/;
use Class::Method::Modifiers qw/fresh/;

#
# This class is very internal and should not harm Pod coverage test
#


sub new {
  my ($class, $action_provider) = @_;
  croak 'action_provider must be a reference' unless ref($action_provider);
  return bless \$action_provider, $class
}

sub DESTROY {
}

# --------------------------------
# Value Interface required methods
# --------------------------------
sub isWithHighRankOnly {     1 } # When there is the rank adverb: highest ranks only ?
sub isWithOrderByRank  {     1 } # When there is the rank adverb: order by rank ?
sub isWithAmbiguous    {     0 } # Allow ambiguous parse ?
sub isWithNull         {     0 } # Allow null parse ?
sub maxParses          {     0 } # Maximum number of parse tree values - meaningless when !isWithAmbiguous
sub setResult          {       } # No-op here
sub getResult          { $_[0] } # Result

#
# Any necessary method is added on-the-fly, and this will croak if it is not provided -;
#
sub AUTOLOAD {
  my $method = $AUTOLOAD;
  $method =~ s/.*:://;
  #
  # We create it inlined with performance in mind
  #
  fresh $method => eval "sub { my (\$self, \@args) = \@_; return \$\$self->$method(\@args) }"; ## no critic
  goto &$method
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

MarpaX::ESLIF::URI::_generic::ValueInterface - MarpaX::ESLIF's URI Value Interface

=head1 VERSION

version 0.006

=for Pod::Coverage *EVERYTHING*

=head1 AUTHOR

Jean-Damien Durand <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Jean-Damien Durand.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut