File Coverage

blib/lib/perl5i/2/Signature/None.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch			n/a
condition			n/a
subroutine	10	11	90.9
pod	0	6	0.0
total	29	37	78.3

package perl5i::2::Signature::None;

use strict;
use warnings;

use overload
  q[""] => sub { return $_[0]->as_string },
  q[bool] => sub { 1 },  # always true, regardless of the actual signature string
  fallback => 1
;

sub new {
    my $class = shift;
    my %args = @_;
    return bless { signature => $args{signature} }, $class;
}

sub num_positional_params { 0 }
sub positional_params { return []; }
sub params { return []; }
sub make_real {}

sub as_string {
    my $self = shift;
    return $self->{signature};
}

1;