| blib/lib/OpenTracing/Implementation/Interface/Bootstrap.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 5 | 0.0 |
| line | l | !l | condition |
|---|---|---|---|
| 11 | 0 | 0 | Type::Tiny::XS::AUTO::TC1($_) or Function::Parameters::_croak("In class_method bootstrap_tracer: parameter 2 (\@implementation_args): " . ${my $v = bless( {"_build_coercion" => sub { package Type::Tiny; use warnings; use strict; my $coercion = shift(); my $built = $self->coercion_generator->($self, $P, @args); $coercion->add_type_coercions(@{$built->type_coercion_map;}) if $built; $coercion->freeze;},"coercion" => bless( {"_compiled_type_constraint_check" => sub ;,"frozen" => 1,"name" => "__ANON__","type_coercion_map" => [],"type_constraint" => {}}, 'Type::Coercion' ),"compiled_type_constraint" => do{my $o},"constraint" => sub { package Types::Standard; no warnings; use strict; my $value = shift(); return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. unless defined $value; return $param->check($value);},"definition_context" => {"file" => "/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux/Function/Parameters.pm","line" => 100,"package" => "Function::Parameters"},"deprecated" => "","display_name" => "Maybe[Any]","inlined" => sub { package Types::Standard; no warnings; use strict; my $v = $_[1]; return "$xsubname($v)" if $xsubname and not $Type::Tiny::AvoidCallbacks; my $param_check = $param->inline_check($v); "!defined($v) or $param_check";},"name" => "__ANON__","parameters" => [bless( {"_is_core" => 1,"_overload_coderef" => sub { ;},"_overrides_assert_return" => "","coercion" => bless( {"_compiled_type_constraint_check" => sub ;,"display_name" => "to_Any","frozen" => 1,"name" => "__ANON__","type_coercion_map" => [],"type_constraint" => {}}, 'Type::Coercion' ),"compiled_type_constraint" => do{my $o},"complement_name" => "None","constraint" => sub { ;},"definition_context" => {"file" => "/usr/local/lib/perl5/site_perl/5.26.1/Types/Standard.pm","line" => 211,"package" => "Types::Standard"},"deprecated" => "","display_name" => "Any","exception_class" => "Error::TypeTiny::Assertion","inlined" => sub { ;},"library" => "Types::Standard","name" => "Any","type_default" => sub { ;},"uniq" => 1}, 'Type::Tiny' )],"parent" => bless( {"_is_core" => 1,"_overload_coderef" => sub { package Type::Tiny; BEGIN {${^WARNING_BITS} = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x55\x10"} use strict; '???'; $_[0];},"_overrides_assert_return" => "","coercion" => bless( {"_compiled_type_constraint_check" => do{my $o},"display_name" => "to_Maybe","frozen" => 1,"name" => "__ANON__","type_coercion_map" => [],"type_constraint" => {}}, 'Type::Coercion' ),"coercion_generator" => sub { package Types::Standard; no warnings; use strict; my($parent, $child, $param) = @_; return unless $param->has_coercion; return $param->coercion;},"compiled_type_constraint" => do{my $o},"constraint" => do{my $o},"constraint_generator" => sub { package Types::Standard; no warnings; use strict; return $meta->get_type("Maybe") unless @_; my $param = Types::TypeTiny::to_TypeTiny(shift()); _croak "Parameter to Maybe[`a] expected to be a type constraint; got $param" unless Types::TypeTiny::is_TypeTiny($param); my $param_compiled_check = $param->compiled_check; my @xsub; do { my $paramname = Type::Tiny::XS::is_known($param_compiled_check); push @xsub, Type::Tiny::XS::get_coderef_for("Maybe[$paramname]") if $paramname }; return sub { ; } , @xsub; },"deep_explanation" => sub { package Types::Standard; no warnings; use strict; my($type, $value, $varname) = @_; my $param = $type->parameters->[0]; return [sprintf("%s is defined", Type::Tiny::_dd($value)), sprintf("\"%s\" constrains the value with \"%s\" if it is defined", $type, $param), @{$param->validate_explain($value, $varname);}];},"definition_context" => {"file" => "/usr/local/lib/perl5/site_perl/5.26.1/Types/Standard.pm","line" => 646,"package" => "Types::Standard"},"deprecated" => "","display_name" => "Maybe","exception_class" => "Error::TypeTiny::Assertion","inline_generator" => sub { package Types::Standard; no warnings; use strict; my $param = shift(); my $param_compiled_check = $param->compiled_check; my $xsubname; do { my $paramname = Type::Tiny::XS::is_known($param_compiled_check); $xsubname = Type::Tiny::XS::get_subname_for("Maybe[$paramname]") }; return unless $param->can_be_inlined; return sub { ; } ; },"library" => "Types::Standard","name" => "Maybe","name_generator" => sub { package Type::Tiny; use warnings; use strict; defined $_ and s/[\x00-\x1F]//gms foreach (my($s, @a) = @_); sprintf "%s[%s]", $s, join(",", map((!defined($_) ? "undef" : (!ref($_) && /\W/ ? B::perlstring($_) : $_)), @a));},"parent" => bless( {"_is_core" => 1,"_overload_coderef" => sub { ;},"_overrides_assert_return" => "","coercion" => bless( {"_compiled_type_constraint_check" => do{my $o},"display_name" => "to_Item","frozen" => 1,"name" => "__ANON__","type_coercion_map" => [],"type_constraint" => {}}, 'Type::Coercion' ),"compiled_type_constraint" => do{my $o},"constraint" => do{my $o},"definition_context" => {"file" => "/usr/local/lib/perl5/site_perl/5.26.1/Types/Standard.pm","line" => 217,"package" => "Types::Standard"},"deprecated" => "","display_name" => "Item","exception_class" => "Error::TypeTiny::Assertion","inlined" => sub { ;},"library" => "Types::Standard","name" => "Item","parent" => {},"uniq" => 2}, 'Type::Tiny' ),"type_default" => sub { package Types::Standard; no warnings; use strict; return undef;},"type_default_generator" => sub { package Types::Standard; no warnings; use strict; $Type::Tiny::parameterize_type->type_default unless $_[0]->type_default;},"uniq" => 25}, 'Type::Tiny' ),"type_default" => do{my $o},"uniq" => 40}, 'Type::Tiny' );$v->{"coercion"}{"type_constraint"} = $v;$v->{"compiled_type_constraint"} = $v->{"coercion"}{"_compiled_type_constraint_check"};$v->{"parameters"}[0]{"coercion"}{"type_constraint"} = $v->{"parameters"}[0];$v->{"parameters"}[0]{"compiled_type_constraint"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"coercion"}{"_compiled_type_constraint_check"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"coercion"}{"type_constraint"} = $v->{"parent"};$v->{"parent"}{"compiled_type_constraint"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"constraint"} = $v->{"parameters"}[0]{"constraint"};$v->{"parent"}{"parent"}{"coercion"}{"_compiled_type_constraint_check"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"parent"}{"coercion"}{"type_constraint"} = $v->{"parent"}{"parent"};$v->{"parent"}{"parent"}{"compiled_type_constraint"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"parent"}{"constraint"} = $v->{"parameters"}[0]{"constraint"};$v->{"parent"}{"parent"}{"parent"} = $v->{"parameters"}[0];$v->{"type_default"} = $v->{"parameters"}[0]{"type_default"}; \$v}->get_message($_)) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 11 | 0 | 0 | 0 | Type::Tiny::XS::AUTO::TC1($_) or Function::Parameters::_croak("In class_method bootstrap_tracer: parameter 2 (\@implementation_args): " . ${my $v = bless( {"_build_coercion" => sub { package Type::Tiny; use warnings; use strict; my $coercion = shift(); my $built = $self->coercion_generator->($self, $P, @args); $coercion->add_type_coercions(@{$built->type_coercion_map;}) if $built; $coercion->freeze;},"coercion" => bless( {"_compiled_type_constraint_check" => sub ;,"frozen" => 1,"name" => "__ANON__","type_coercion_map" => [],"type_constraint" => {}}, 'Type::Coercion' ),"compiled_type_constraint" => do{my $o},"constraint" => sub { package Types::Standard; no warnings; use strict; my $value = shift(); return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. unless defined $value; return $param->check($value);},"definition_context" => {"file" => "/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux/Function/Parameters.pm","line" => 100,"package" => "Function::Parameters"},"deprecated" => "","display_name" => "Maybe[Any]","inlined" => sub { package Types::Standard; no warnings; use strict; my $v = $_[1]; return "$xsubname($v)" if $xsubname and not $Type::Tiny::AvoidCallbacks; my $param_check = $param->inline_check($v); "!defined($v) or $param_check";},"name" => "__ANON__","parameters" => [bless( {"_is_core" => 1,"_overload_coderef" => sub { ;},"_overrides_assert_return" => "","coercion" => bless( {"_compiled_type_constraint_check" => sub ;,"display_name" => "to_Any","frozen" => 1,"name" => "__ANON__","type_coercion_map" => [],"type_constraint" => {}}, 'Type::Coercion' ),"compiled_type_constraint" => do{my $o},"complement_name" => "None","constraint" => sub { ;},"definition_context" => {"file" => "/usr/local/lib/perl5/site_perl/5.26.1/Types/Standard.pm","line" => 211,"package" => "Types::Standard"},"deprecated" => "","display_name" => "Any","exception_class" => "Error::TypeTiny::Assertion","inlined" => sub { ;},"library" => "Types::Standard","name" => "Any","type_default" => sub { ;},"uniq" => 1}, 'Type::Tiny' )],"parent" => bless( {"_is_core" => 1,"_overload_coderef" => sub { package Type::Tiny; BEGIN {${^WARNING_BITS} = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x55\x10"} use strict; '???'; $_[0];},"_overrides_assert_return" => "","coercion" => bless( {"_compiled_type_constraint_check" => do{my $o},"display_name" => "to_Maybe","frozen" => 1,"name" => "__ANON__","type_coercion_map" => [],"type_constraint" => {}}, 'Type::Coercion' ),"coercion_generator" => sub { package Types::Standard; no warnings; use strict; my($parent, $child, $param) = @_; return unless $param->has_coercion; return $param->coercion;},"compiled_type_constraint" => do{my $o},"constraint" => do{my $o},"constraint_generator" => sub { package Types::Standard; no warnings; use strict; return $meta->get_type("Maybe") unless @_; my $param = Types::TypeTiny::to_TypeTiny(shift()); _croak "Parameter to Maybe[`a] expected to be a type constraint; got $param" unless Types::TypeTiny::is_TypeTiny($param); my $param_compiled_check = $param->compiled_check; my @xsub; do { my $paramname = Type::Tiny::XS::is_known($param_compiled_check); push @xsub, Type::Tiny::XS::get_coderef_for("Maybe[$paramname]") if $paramname }; return sub { ; } , @xsub; },"deep_explanation" => sub { package Types::Standard; no warnings; use strict; my($type, $value, $varname) = @_; my $param = $type->parameters->[0]; return [sprintf("%s is defined", Type::Tiny::_dd($value)), sprintf("\"%s\" constrains the value with \"%s\" if it is defined", $type, $param), @{$param->validate_explain($value, $varname);}];},"definition_context" => {"file" => "/usr/local/lib/perl5/site_perl/5.26.1/Types/Standard.pm","line" => 646,"package" => "Types::Standard"},"deprecated" => "","display_name" => "Maybe","exception_class" => "Error::TypeTiny::Assertion","inline_generator" => sub { package Types::Standard; no warnings; use strict; my $param = shift(); my $param_compiled_check = $param->compiled_check; my $xsubname; do { my $paramname = Type::Tiny::XS::is_known($param_compiled_check); $xsubname = Type::Tiny::XS::get_subname_for("Maybe[$paramname]") }; return unless $param->can_be_inlined; return sub { ; } ; },"library" => "Types::Standard","name" => "Maybe","name_generator" => sub { package Type::Tiny; use warnings; use strict; defined $_ and s/[\x00-\x1F]//gms foreach (my($s, @a) = @_); sprintf "%s[%s]", $s, join(",", map((!defined($_) ? "undef" : (!ref($_) && /\W/ ? B::perlstring($_) : $_)), @a));},"parent" => bless( {"_is_core" => 1,"_overload_coderef" => sub { ;},"_overrides_assert_return" => "","coercion" => bless( {"_compiled_type_constraint_check" => do{my $o},"display_name" => "to_Item","frozen" => 1,"name" => "__ANON__","type_coercion_map" => [],"type_constraint" => {}}, 'Type::Coercion' ),"compiled_type_constraint" => do{my $o},"constraint" => do{my $o},"definition_context" => {"file" => "/usr/local/lib/perl5/site_perl/5.26.1/Types/Standard.pm","line" => 217,"package" => "Types::Standard"},"deprecated" => "","display_name" => "Item","exception_class" => "Error::TypeTiny::Assertion","inlined" => sub { ;},"library" => "Types::Standard","name" => "Item","parent" => {},"uniq" => 2}, 'Type::Tiny' ),"type_default" => sub { package Types::Standard; no warnings; use strict; return undef;},"type_default_generator" => sub { package Types::Standard; no warnings; use strict; $Type::Tiny::parameterize_type->type_default unless $_[0]->type_default;},"uniq" => 25}, 'Type::Tiny' ),"type_default" => do{my $o},"uniq" => 40}, 'Type::Tiny' );$v->{"coercion"}{"type_constraint"} = $v;$v->{"compiled_type_constraint"} = $v->{"coercion"}{"_compiled_type_constraint_check"};$v->{"parameters"}[0]{"coercion"}{"type_constraint"} = $v->{"parameters"}[0];$v->{"parameters"}[0]{"compiled_type_constraint"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"coercion"}{"_compiled_type_constraint_check"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"coercion"}{"type_constraint"} = $v->{"parent"};$v->{"parent"}{"compiled_type_constraint"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"constraint"} = $v->{"parameters"}[0]{"constraint"};$v->{"parent"}{"parent"}{"coercion"}{"_compiled_type_constraint_check"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"parent"}{"coercion"}{"type_constraint"} = $v->{"parent"}{"parent"};$v->{"parent"}{"parent"}{"compiled_type_constraint"} = $v->{"parameters"}[0]{"coercion"}{"_compiled_type_constraint_check"};$v->{"parent"}{"parent"}{"constraint"} = $v->{"parameters"}[0]{"constraint"};$v->{"parent"}{"parent"}{"parent"} = $v->{"parameters"}[0];$v->{"type_default"} = $v->{"parameters"}[0]{"type_default"}; \$v}->get_message($_)) |