PATH=/opt/SUNWspro/bin:/usr/local/bin:/opt/csw/bin:/usr/ccs/bin:/usr/bin:/usr/sbin Start 2014-09-06T07:15:16 ActivePerl-1402 CPAN-2.00 Reading '/export/home/fly1464/var/cpan/Metadata' Database was generated on Sat, 06 Sep 2014 11:29:02 GMT Running make for D/DW/DWHEELER/App-Sqitch-0.996.tar.gz Fetching with LWP: http://cpan.nas1.activestate.com/authors/id/D/DW/DWHEELER/App-Sqitch-0.996.tar.gz Fetching with LWP: http://cpan.nas1.activestate.com/authors/id/D/DW/DWHEELER/CHECKSUMS Checksum for /export/home/fly1464/var/cpan/sources/authors/id/D/DW/DWHEELER/App-Sqitch-0.996.tar.gz ok App-Sqitch-0.996/ App-Sqitch-0.996/bin/ App-Sqitch-0.996/Build.PL App-Sqitch-0.996/Changes App-Sqitch-0.996/dist/ App-Sqitch-0.996/etc/ App-Sqitch-0.996/inc/ App-Sqitch-0.996/lib/ App-Sqitch-0.996/LICENSE App-Sqitch-0.996/MANIFEST App-Sqitch-0.996/META.json App-Sqitch-0.996/META.yml App-Sqitch-0.996/README App-Sqitch-0.996/README.md App-Sqitch-0.996/t/ App-Sqitch-0.996/xt/ App-Sqitch-0.996/xt/release/ App-Sqitch-0.996/xt/release/pod-coverage.t App-Sqitch-0.996/xt/release/pod-spelling.t App-Sqitch-0.996/xt/release/pod.t App-Sqitch-0.996/t/add.t App-Sqitch-0.996/t/add_change.conf App-Sqitch-0.996/t/base.t App-Sqitch-0.996/t/blank.t App-Sqitch-0.996/t/bundle.t App-Sqitch-0.996/t/change.t App-Sqitch-0.996/t/changelist.t App-Sqitch-0.996/t/checkout.t App-Sqitch-0.996/t/command.t App-Sqitch-0.996/t/config.t App-Sqitch-0.996/t/configuration.t App-Sqitch-0.996/t/datetime.t App-Sqitch-0.996/t/dburi.t App-Sqitch-0.996/t/depend.t App-Sqitch-0.996/t/deploy.t App-Sqitch-0.996/t/die.pl App-Sqitch-0.996/t/echo.pl App-Sqitch-0.996/t/engine/ App-Sqitch-0.996/t/engine.t App-Sqitch-0.996/t/firebird.t App-Sqitch-0.996/t/help.t App-Sqitch-0.996/t/init.t App-Sqitch-0.996/t/item_formatter.t App-Sqitch-0.996/t/lib/ App-Sqitch-0.996/t/linelist.t App-Sqitch-0.996/t/local.conf App-Sqitch-0.996/t/log.t App-Sqitch-0.996/t/mysql.t App-Sqitch-0.996/t/options.t App-Sqitch-0.996/t/oracle.t App-Sqitch-0.996/t/pg.t App-Sqitch-0.996/t/plan.t App-Sqitch-0.996/t/plan_command.t App-Sqitch-0.996/t/plans/ App-Sqitch-0.996/t/pragma.t App-Sqitch-0.996/t/read.pl App-Sqitch-0.996/t/rebase.t App-Sqitch-0.996/t/revert.t App-Sqitch-0.996/t/rework.conf App-Sqitch-0.996/t/rework.t App-Sqitch-0.996/t/show.t App-Sqitch-0.996/t/sqitch App-Sqitch-0.996/t/sqitch.conf App-Sqitch-0.996/t/sql/ App-Sqitch-0.996/t/sqlite.t App-Sqitch-0.996/t/status.t App-Sqitch-0.996/t/tag.t App-Sqitch-0.996/t/tag_cmd.t App-Sqitch-0.996/t/target.conf App-Sqitch-0.996/t/target.t App-Sqitch-0.996/t/templates.conf App-Sqitch-0.996/t/user.conf App-Sqitch-0.996/t/verify.t App-Sqitch-0.996/t/vertica.t App-Sqitch-0.996/t/x.t App-Sqitch-0.996/t/sql/deploy/ App-Sqitch-0.996/t/sql/sqitch.plan App-Sqitch-0.996/t/sql/verify/ App-Sqitch-0.996/t/sql/verify/users.sql App-Sqitch-0.996/t/sql/deploy/roles.sql App-Sqitch-0.996/t/sql/deploy/users.sql App-Sqitch-0.996/t/sql/deploy/widgets.sql App-Sqitch-0.996/t/plans/bad-change.plan App-Sqitch-0.996/t/plans/changes-only.plan App-Sqitch-0.996/t/plans/dependencies.plan App-Sqitch-0.996/t/plans/deploy-and-revert.plan App-Sqitch-0.996/t/plans/dupe-change-diff-tag.plan App-Sqitch-0.996/t/plans/dupe-change.plan App-Sqitch-0.996/t/plans/dupe-tag.plan App-Sqitch-0.996/t/plans/multi.plan App-Sqitch-0.996/t/plans/pragmas.plan App-Sqitch-0.996/t/plans/project_deps.plan App-Sqitch-0.996/t/plans/reserved-tag.plan App-Sqitch-0.996/t/plans/widgets.plan App-Sqitch-0.996/t/lib/App/ App-Sqitch-0.996/t/lib/DBIEngineTest.pm App-Sqitch-0.996/t/lib/MockOutput.pm App-Sqitch-0.996/t/lib/App/Sqitch/ App-Sqitch-0.996/t/lib/App/Sqitch/Command/ App-Sqitch-0.996/t/lib/App/Sqitch/Engine/ App-Sqitch-0.996/t/lib/App/Sqitch/Engine/bad.pm App-Sqitch-0.996/t/lib/App/Sqitch/Engine/good.pm App-Sqitch-0.996/t/lib/App/Sqitch/Command/bad.pm App-Sqitch-0.996/t/lib/App/Sqitch/Command/good.pm App-Sqitch-0.996/t/engine/deploy/ App-Sqitch-0.996/t/engine/revert/ App-Sqitch-0.996/t/engine/sqitch.plan App-Sqitch-0.996/t/engine/revert/func/ App-Sqitch-0.996/t/engine/revert/users.sql App-Sqitch-0.996/t/engine/revert/widgets.sql App-Sqitch-0.996/t/engine/revert/func/add_user.sql App-Sqitch-0.996/t/engine/deploy/func/ App-Sqitch-0.996/t/engine/deploy/users.sql App-Sqitch-0.996/t/engine/deploy/widgets.sql App-Sqitch-0.996/t/engine/deploy/func/add_user.sql App-Sqitch-0.996/lib/App/ App-Sqitch-0.996/lib/LocaleData/ App-Sqitch-0.996/lib/sqitch-add-usage.pod App-Sqitch-0.996/lib/sqitch-add.pod App-Sqitch-0.996/lib/sqitch-bundle-usage.pod App-Sqitch-0.996/lib/sqitch-bundle.pod App-Sqitch-0.996/lib/sqitch-checkout-usage.pod App-Sqitch-0.996/lib/sqitch-checkout.pod App-Sqitch-0.996/lib/sqitch-config-usage.pod App-Sqitch-0.996/lib/sqitch-config.pod App-Sqitch-0.996/lib/sqitch-deploy-usage.pod App-Sqitch-0.996/lib/sqitch-deploy.pod App-Sqitch-0.996/lib/sqitch-help-usage.pod App-Sqitch-0.996/lib/sqitch-help.pod App-Sqitch-0.996/lib/sqitch-init-usage.pod App-Sqitch-0.996/lib/sqitch-init.pod App-Sqitch-0.996/lib/sqitch-log-usage.pod App-Sqitch-0.996/lib/sqitch-log.pod App-Sqitch-0.996/lib/sqitch-plan-usage.pod App-Sqitch-0.996/lib/sqitch-plan.pod App-Sqitch-0.996/lib/sqitch-rebase-usage.pod App-Sqitch-0.996/lib/sqitch-rebase.pod App-Sqitch-0.996/lib/sqitch-revert-usage.pod App-Sqitch-0.996/lib/sqitch-revert.pod App-Sqitch-0.996/lib/sqitch-rework-usage.pod App-Sqitch-0.996/lib/sqitch-rework.pod App-Sqitch-0.996/lib/sqitch-show-usage.pod App-Sqitch-0.996/lib/sqitch-show.pod App-Sqitch-0.996/lib/sqitch-status-usage.pod App-Sqitch-0.996/lib/sqitch-status.pod App-Sqitch-0.996/lib/sqitch-tag-usage.pod App-Sqitch-0.996/lib/sqitch-tag.pod App-Sqitch-0.996/lib/sqitch-target-usage.pod App-Sqitch-0.996/lib/sqitch-target.pod App-Sqitch-0.996/lib/sqitch-verify-usage.pod App-Sqitch-0.996/lib/sqitch-verify.pod App-Sqitch-0.996/lib/sqitch.pod App-Sqitch-0.996/lib/sqitchchanges.pod App-Sqitch-0.996/lib/sqitchcommands.pod App-Sqitch-0.996/lib/sqitchtutorial-firebird.pod App-Sqitch-0.996/lib/sqitchtutorial-mysql.pod App-Sqitch-0.996/lib/sqitchtutorial-oracle.pod App-Sqitch-0.996/lib/sqitchtutorial-sqlite.pod App-Sqitch-0.996/lib/sqitchtutorial-vertica.pod App-Sqitch-0.996/lib/sqitchtutorial.pod App-Sqitch-0.996/lib/sqitchusage.pod App-Sqitch-0.996/lib/LocaleData/de/ App-Sqitch-0.996/lib/LocaleData/fr/ App-Sqitch-0.996/lib/LocaleData/fr/LC_MESSAGES/ App-Sqitch-0.996/lib/LocaleData/fr/LC_MESSAGES/App-Sqitch.mo App-Sqitch-0.996/lib/LocaleData/de/LC_MESSAGES/ App-Sqitch-0.996/lib/LocaleData/de/LC_MESSAGES/App-Sqitch.mo App-Sqitch-0.996/lib/App/Sqitch/ App-Sqitch-0.996/lib/App/Sqitch.pm App-Sqitch-0.996/lib/App/Sqitch/Command/ App-Sqitch-0.996/lib/App/Sqitch/Command.pm App-Sqitch-0.996/lib/App/Sqitch/Config.pm App-Sqitch-0.996/lib/App/Sqitch/DateTime.pm App-Sqitch-0.996/lib/App/Sqitch/Engine/ App-Sqitch-0.996/lib/App/Sqitch/Engine.pm App-Sqitch-0.996/lib/App/Sqitch/ItemFormatter.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/ App-Sqitch-0.996/lib/App/Sqitch/Plan.pm App-Sqitch-0.996/lib/App/Sqitch/Role/ App-Sqitch-0.996/lib/App/Sqitch/Types.pm App-Sqitch-0.996/lib/App/Sqitch/X.pm App-Sqitch-0.996/lib/App/Sqitch/Role/DBIEngine.pm App-Sqitch-0.996/lib/App/Sqitch/Role/RevertDeployCommand.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/Blank.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/Change.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/ChangeList.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/Depend.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/Line.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/LineList.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/Pragma.pm App-Sqitch-0.996/lib/App/Sqitch/Plan/Tag.pm App-Sqitch-0.996/lib/App/Sqitch/Engine/firebird.pm App-Sqitch-0.996/lib/App/Sqitch/Engine/firebird.sql App-Sqitch-0.996/lib/App/Sqitch/Engine/mysql.pm App-Sqitch-0.996/lib/App/Sqitch/Engine/mysql.sql App-Sqitch-0.996/lib/App/Sqitch/Engine/oracle.pm App-Sqitch-0.996/lib/App/Sqitch/Engine/oracle.sql App-Sqitch-0.996/lib/App/Sqitch/Engine/pg.pm App-Sqitch-0.996/lib/App/Sqitch/Engine/pg.sql App-Sqitch-0.996/lib/App/Sqitch/Engine/sqlite.pm App-Sqitch-0.996/lib/App/Sqitch/Engine/sqlite.sql App-Sqitch-0.996/lib/App/Sqitch/Engine/vertica.pm App-Sqitch-0.996/lib/App/Sqitch/Engine/vertica.sql App-Sqitch-0.996/lib/App/Sqitch/Command/add.pm App-Sqitch-0.996/lib/App/Sqitch/Command/bundle.pm App-Sqitch-0.996/lib/App/Sqitch/Command/checkout.pm App-Sqitch-0.996/lib/App/Sqitch/Command/config.pm App-Sqitch-0.996/lib/App/Sqitch/Command/deploy.pm App-Sqitch-0.996/lib/App/Sqitch/Command/help.pm App-Sqitch-0.996/lib/App/Sqitch/Command/init.pm App-Sqitch-0.996/lib/App/Sqitch/Command/log.pm App-Sqitch-0.996/lib/App/Sqitch/Command/plan.pm App-Sqitch-0.996/lib/App/Sqitch/Command/rebase.pm App-Sqitch-0.996/lib/App/Sqitch/Command/revert.pm App-Sqitch-0.996/lib/App/Sqitch/Command/rework.pm App-Sqitch-0.996/lib/App/Sqitch/Command/show.pm App-Sqitch-0.996/lib/App/Sqitch/Command/status.pm App-Sqitch-0.996/lib/App/Sqitch/Command/tag.pm App-Sqitch-0.996/lib/App/Sqitch/Command/target.pm App-Sqitch-0.996/lib/App/Sqitch/Command/verify.pm App-Sqitch-0.996/inc/Module/ App-Sqitch-0.996/inc/Module/Build/ App-Sqitch-0.996/inc/Module/Build/Sqitch.pm App-Sqitch-0.996/etc/templates/ App-Sqitch-0.996/etc/templates/deploy/ App-Sqitch-0.996/etc/templates/revert/ App-Sqitch-0.996/etc/templates/verify/ App-Sqitch-0.996/etc/templates/verify/firebird.tmpl App-Sqitch-0.996/etc/templates/verify/mysql.tmpl App-Sqitch-0.996/etc/templates/verify/oracle.tmpl App-Sqitch-0.996/etc/templates/verify/pg.tmpl App-Sqitch-0.996/etc/templates/verify/sqlite.tmpl App-Sqitch-0.996/etc/templates/verify/vertica.tmpl App-Sqitch-0.996/etc/templates/revert/firebird.tmpl App-Sqitch-0.996/etc/templates/revert/mysql.tmpl App-Sqitch-0.996/etc/templates/revert/oracle.tmpl App-Sqitch-0.996/etc/templates/revert/pg.tmpl App-Sqitch-0.996/etc/templates/revert/sqlite.tmpl App-Sqitch-0.996/etc/templates/revert/vertica.tmpl App-Sqitch-0.996/etc/templates/deploy/firebird.tmpl App-Sqitch-0.996/etc/templates/deploy/mysql.tmpl App-Sqitch-0.996/etc/templates/deploy/oracle.tmpl App-Sqitch-0.996/etc/templates/deploy/pg.tmpl App-Sqitch-0.996/etc/templates/deploy/sqlite.tmpl App-Sqitch-0.996/etc/templates/deploy/vertica.tmpl App-Sqitch-0.996/dist/sqitch.spec App-Sqitch-0.996/bin/sqitch CPAN.pm: Building D/DW/DWHEELER/App-Sqitch-0.996.tar.gz >>> /export/home/fly1464/bin/perl Build.PL Created MYMETA.yml and MYMETA.json Creating new 'Build' script for 'App-Sqitch' version '0.996' >>> ./Build Building App-Sqitch DWHEELER/App-Sqitch-0.996.tar.gz ./Build -- OK Running Build test >>> ./Build test verbose=1 /export/home/fly1464/bin/perl -i.bak -pe s{my \$SYSTEM_DIR = undef}{my \$SYSTEM_DIR = q{\/export\/home\/fly1464\/ap1402\/etc\/sqitch}} blib/lib/App/Sqitch/Config.pm Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 23 warning(s) # Previous test 0 '' # Useless use of array element in void context at (eval 198) line 77. # at (eval 198) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018f8f38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1018f8cc8), "_engine", "pg") called at t/add.t line 33 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 198) line 438. # at (eval 198) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018f8f38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1018f8cc8), "_engine", "pg") called at t/add.t line 33 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 198) line 515. # at (eval 198) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018f8f38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1018f8cc8), "_engine", "pg") called at t/add.t line 33 # # ---------- # Previous test 1 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 206) line 233. # at (eval 206) line 233. # eval '{ # my $default_for_with_5fscripts = ${$_[1]->{"\\$default_for_with_5fscripts"}}; # my $default_for_requires = ${$_[1]->{"\\$default_for_requires"}}; # my $default_for_conflicts = ${$_[1]->{"\\$default_for_conflicts"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_note = ${$_[1]->{"\\$default_for_note"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::add::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::add") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::add::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for_conflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : $default_for_note->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"open_editor"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "open_editor", # name => "open_editor", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"open_editor"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"open_editor\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"open_editor"} = $args->{"open_editor"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for_requires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"requires\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"requires"} = $value; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"template_directory"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "template_directory", # name => "template_directory", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"template_directory"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"template_directory\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"template_directory"} = $args->{"template_directory"}; # } # if (exists $args->{"template_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "template_name", # name => "template_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"template_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"template_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"template_name"} = $args->{"template_name"}; # } # if (exists $args->{"templates"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "templates", # name => "templates", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"templates"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"templates\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"templates"} = $args->{"templates"}; # } # if (exists $args->{"variables"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "variables", # name => "variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"variables"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"variables"} = $args->{"variables"}; # } # { # my $value = ( # exists $args->{"with_scripts"} # ? $args->{"with_scripts"} # : $default_for_with_5fscripts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_scripts", # name => "with_scripts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_scripts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_scripts"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::add::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_with_5fscripts = \${\$_[1]->{\"\\\$default_for"..., HASH(0x1018b8a40)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1f538)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10158a4a8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::add::new("App::Sqitch::Command::add", HASH(0x1019f64f0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/add.t line 49 # # ---------- # Previous test 86 'Create another add with template_directory' # Useless use of array element in void context at (eval 267) line 43. # at (eval 267) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101a3c120)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a02f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a02f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x1018df4b8)) called at t/add.t line 465 # # ---------- # Previous test 86 'Create another add with template_directory' # Useless use of array element in void context at (eval 268) line 71. # at (eval 268) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101f51b28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f3e4d8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018df4b8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x1018df4b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018df4b8)) called at (eval 267) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1018df4b8)) called at t/add.t line 465 # # ---------- # Previous test 86 'Create another add with template_directory' # Useless use of array element in void context at (eval 268) line 107. # at (eval 268) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101f51b28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f3e4d8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018df4b8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x1018df4b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018df4b8)) called at (eval 267) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1018df4b8)) called at t/add.t line 465 # # ---------- # Previous test 86 'Create another add with template_directory' # Useless use of array element in void context at (eval 268) line 256. # at (eval 268) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101f51b28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f3e4d8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018df4b8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x1018df4b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018df4b8)) called at (eval 267) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1018df4b8)) called at t/add.t line 465 # # ---------- # Previous test 86 'Create another add with template_directory' # Useless use of array element in void context at (eval 269) line 43. # at (eval 269) line 43. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x101f38748)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014ab628)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ab628)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x101f3e430)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 584 # App::Sqitch::Plan::get(App::Sqitch::Plan=HASH(0x101f3e430), "widgets_table") called at t/add.t line 466 # # ---------- # Previous test 86 'Create another add with template_directory' # Useless use of array element in void context at (eval 271) line 298, line 1. # at (eval 271) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101f1e3f8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f0ce90)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101580948)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x101f3e430), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101f3e430), Path::Class::File=HASH(0x1016981b0), IO::File=GLOB(0x101636cd0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101f3e430)) called at (eval 270) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101f3e430)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101f3e430)) called at (eval 269) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x101f3e430)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 584 # App::Sqitch::Plan::get(App::Sqitch::Plan=HASH(0x101f3e430), "widgets_table") called at t/add.t line 466 # # ---------- # Previous test 86 'Create another add with template_directory' # Useless use of array element in void context at (eval 272) line 262, line 2. # at (eval 272) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101f060e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f0cc38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101519ba8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x101f3e430), "lspace", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101f3e430), Path::Class::File=HASH(0x1016981b0), IO::File=GLOB(0x101636cd0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101f3e430)) called at (eval 270) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101f3e430)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101f3e430)) called at (eval 269) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x101f3e430)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 584 # App::Sqitch::Plan::get(App::Sqitch::Plan=HASH(0x101f3e430), "widgets_table") called at t/add.t line 466 # # ---------- # Previous test 90 'dir test-add/verify does not exist' # Useless use of array element in void context at (eval 274) line 597, line 3. # at (eval 274) line 597, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101ef3b58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ee0c30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x101ee0e10), "requires", ARRAY(0x101ee4ff0), "name", "widgets_table", "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "widgets_table", "requires", ARRAY(0x101498f98), "conflicts", ARRAY(0x10148f6c8), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101b16798), "widgets_table") called at t/add.t line 468 # # ---------- # Previous test 90 'dir test-add/verify does not exist' # Useless use of array element in void context at (eval 274) line 633, line 3. # at (eval 274) line 633, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101ef3b58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ee0c30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x101ee0e10), "requires", ARRAY(0x101ee4ff0), "name", "widgets_table", "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "widgets_table", "requires", ARRAY(0x101498f98), "conflicts", ARRAY(0x10148f6c8), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101b16798), "widgets_table") called at t/add.t line 468 # # ---------- # Previous test 90 'dir test-add/verify does not exist' # Useless use of array element in void context at (eval 274) line 906, line 3. # at (eval 274) line 906, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101ef3b58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ee0c30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x101ee0e10), "requires", ARRAY(0x101ee4ff0), "name", "widgets_table", "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "widgets_table", "requires", ARRAY(0x101498f98), "conflicts", ARRAY(0x10148f6c8), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101b16798), "widgets_table") called at t/add.t line 468 # # ---------- # Previous test 90 'dir test-add/verify does not exist' # Useless use of array element in void context at (eval 278) line 43, line 3. # at (eval 278) line 43, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101ed0d98)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a2f28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a2f28)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x1018df4b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018df4b8)) called at (eval 277) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x1018df4b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101ee01e0)) called at (eval 274) line 649 # App::Sqitch::Plan::Change::new(undef, "conflicts", ARRAY(0x101ee0e10), "requires", ARRAY(0x101ee4ff0), "name", "widgets_table", "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "widgets_table", "requires", ARRAY(0x101498f98), "conflicts", ARRAY(0x10148f6c8), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101b16798), "widgets_table") called at t/add.t line 468 # # ---------- # Previous test 90 'dir test-add/verify does not exist' # Useless use of array element in void context at (eval 300) line 43, line 3. # at (eval 300) line 43, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5flines = ${$_[1]->{"\\$default_for__5flines"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_lines { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_lines is a read-only accessor" if @_ > 1; # exists $_[0]->{"_lines"} ? # $_[0]->{"_lines"} # : do { # my $value = $default_for__5flines->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_lines"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_lines # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101eb0058)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014ab358)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ab358)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101f3e430)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 809 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "widgets_table", "requires", ARRAY(0x101498f98), "conflicts", ARRAY(0x10148f6c8), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101b16798), "widgets_table") called at t/add.t line 468 # # ---------- # Previous test 109 'Should not have "foo_table" in plan' # Useless use of array element in void context at (eval 315) line 57. # at (eval 315) line 57. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10264d848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10268b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "widgets_table", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x101f3e430), "conflicts", 0, ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x101f3e430), HASH(0x101613ce8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "foo_table", "requires", ARRAY(0x1026791a8), "conflicts", ARRAY(0x102690140), "note", "hello\x{a}\x{a}there", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x1026908f0), "foo_table") called at t/add.t line 519 # # ---------- # Previous test 109 'Should not have "foo_table" in plan' # Useless use of array element in void context at (eval 315) line 206. # at (eval 315) line 206. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10264d848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10268b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "widgets_table", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x101f3e430), "conflicts", 0, ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x101f3e430), HASH(0x101613ce8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "foo_table", "requires", ARRAY(0x1026791a8), "conflicts", ARRAY(0x102690140), "note", "hello\x{a}\x{a}there", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x1026908f0), "foo_table") called at t/add.t line 519 # # ---------- # Previous test 109 'Should not have "foo_table" in plan' # Useless use of array element in void context at (eval 315) line 278. # at (eval 315) line 278. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10264d848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10268b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "widgets_table", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x101f3e430), "conflicts", 0, ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x101f3e430), HASH(0x101613ce8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "foo_table", "requires", ARRAY(0x1026791a8), "conflicts", ARRAY(0x102690140), "note", "hello\x{a}\x{a}there", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x1026908f0), "foo_table") called at t/add.t line 519 # # ---------- # Previous test 109 'Should not have "foo_table" in plan' # Useless use of array element in void context at (eval 315) line 314. # at (eval 315) line 314. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10264d848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10268b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "widgets_table", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x101f3e430), "conflicts", 0, ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x101f3e430), HASH(0x101613ce8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "foo_table", "requires", ARRAY(0x1026791a8), "conflicts", ARRAY(0x102690140), "note", "hello\x{a}\x{a}there", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x1026908f0), "foo_table") called at t/add.t line 519 # # ---------- # Previous test 109 'Should not have "foo_table" in plan' # Useless use of array element in void context at (eval 315) line 350. # at (eval 315) line 350. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10264d848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10268b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "widgets_table", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x101f3e430), "conflicts", 0, ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x101f3e430), HASH(0x101613ce8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "foo_table", "requires", ARRAY(0x1026791a8), "conflicts", ARRAY(0x102690140), "note", "hello\x{a}\x{a}there", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x1026908f0), "foo_table") called at t/add.t line 519 # # ---------- # Previous test 109 'Should not have "foo_table" in plan' # Useless use of array element in void context at (eval 315) line 386. # at (eval 315) line 386. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10264d848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10268b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "widgets_table", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x101f3e430), "conflicts", 0, ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x101f3e430), HASH(0x101613ce8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "foo_table", "requires", ARRAY(0x1026791a8), "conflicts", ARRAY(0x102690140), "note", "hello\x{a}\x{a}there", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x1026908f0), "foo_table") called at t/add.t line 519 # # ---------- # Previous test 109 'Should not have "foo_table" in plan' # Useless use of array element in void context at (eval 316) line 43. # at (eval 316) line 43. # eval '{ # my $default_for_project = ${$_[1]->{"\\$default_for_project"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::project { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "project is a read-only accessor" if @_ > 1; # exists $_[0]->{"project"} ? # $_[0]->{"project"} # : do { # my $value = $default_for_project->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"project"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::project # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_project = \${\$_[1]->{\"\\\$default_for_projec"..., HASH(0x10268c008)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10150e5b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10150e5b8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::project(App::Sqitch::Plan::Depend=HASH(0x10268b768)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 856 # App::Sqitch::Plan::_check_dependencies(App::Sqitch::Plan=HASH(0x101f3e430), App::Sqitch::Plan::Change=HASH(0x102690cf8), "add") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 795 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101f3e430), "name", "foo_table", "requires", ARRAY(0x1026791a8), "conflicts", ARRAY(0x102690140), "note", "hello\x{a}\x{a}there", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x1026908f0), "foo_table") called at t/add.t line 519 # # Looks like you failed 1 test of 163. t/add.t ............. 1..163 ok 1 - Load a sqitch sqitch object ok 2 - 'add command' isa 'App::Sqitch::Command::add' ok 3 - App::Sqitch::Command::add->can(...) ok 4 - Options should be set up ok 5 - Should have default configuration with no config or opts ok 6 - Should have get requires and conflicts options ok 7 - Should set up template directory option ok 8 - Should die if --template-directory does not exist ok 9 - Missing directory ident should be "add" ok 10 - Missing directory error message should be correct ok 11 - Should die if --template-directory does is not a dir ok 12 - In alid directory ident should be "add" ok 13 - Invalid directory error message should be correct ok 14 - Should set up template name option ok 15 - Should have get template options ok 16 - Variables should by default not be loaded from config ok 17 - --set should be merged with config variables ok 18 - --set should be override config variables ok 19 - Requires should be an arrayref ok 20 - Conflicts should be an arrayref ok 21 - Notes should be an arrayref ok 22 - Varibles should be a hashref ok 23 - Default dir should be undef ok 24 - Default temlate_name should be engine ok 25 - Default with_scripts should be empty ok 26 - Default templates should be empty ok 27 - '_check_script' isa 'CODE' ok 28 - _check_script should be okay with script ok 29 - _check_script should die on nonexistent file ok 30 - Nonexistent file ident should be "add" ok 31 - Nonexistent file error message should be correct ok 32 - _check_script should die on directory ok 33 - Directory error ident should be "add" ok 34 - Directory error message should be correct ok 35 - Load another sqitch sqitch object ok 36 - Create add with template config ok 37 - Should load the config templates ok 38 - Add object with template directory ok 39 - Template name should be "pg" ok 40 - Should find all templates in directory ok 41 - Add object with template name ok 42 - Should find all templates in user directory ok 43 - Add object with another template name ok 44 - Should find all templates in systsem directory ok 45 - Add object with temporary template directory ok 46 - Template dir files should override others ok 47 - Add object with configured templates ok 48 - Template dir files should override others ok 49 - Add object requiring deploy template ok 50 - Should get error for missing deploy template ok 51 - Missing deploy template ident should be "add" ok 52 - Missing deploy template message should be correct ok 53 - Add object requiring revert template ok 54 - Should get error for missing revert template ok 55 - Missing revert template ident should be "add" ok 56 - Missing revert template message should be correct ok 57 - Add object requiring verify template ok 58 - Should get error for missing verify template ok 59 - Missing verify template ident should be "add" ok 60 - Missing verify template message should be correct ok 61 - _slurp() should load a reference to file contents ok 62 - test-add/sqitch_change_test.sql does not exist ok 63 - Create add command ok 64 - Write out a script ok 65 - test-add/sqitch_change_test.sql exists ok 66 - The template should have been evaluated ok 67 - Info should show $out created ok 68 - Create add cmd with requires and conflicts ok 69 - Write out a script with requires and conflicts ok 70 - Info should show $out created ok 71 - The template should have been evaluated with requires and conflicts ok 72 - test-add/sqitch_change_test.sql does not exist ok 73 - Create add command ok 74 - Write out a script ok 75 - test-add/sqitch_change_test.sql exists ok 76 - The template should have been evaluated ok 77 - Info should show $out created ok 78 - Create add cmd with requires and conflicts ok 79 - Write out a script with requires and conflicts ok 80 - Info should show $out created ok 81 - The template should have been evaluated with requires and conflicts ok 82 - Create add command ok 83 - Should get an exception on TT syntax error ok 84 - TT exception ident should be "add" ok 85 - TT exception message should include the original error message ok 86 - Create another add with template_directory ok 87 - Should not have "widgets_table" in plan ok 88 - dir test-add/deploy does not exist ok 89 - dir test-add/revert does not exist ok 90 - dir test-add/verify does not exist ok 91 - Add change "widgets_table" ok 92 - 'Added change' isa 'App::Sqitch::Plan::Change' ok 93 - Change name should be set ok 94 - It should have no requires ok 95 - It should have no conflicts ok 96 - It should have prompted for a note ok 97 - test-add/deploy/widgets_table.sql exists ok 98 - test-add/revert/widgets_table.sql exists ok 99 - test-add/verify/widgets_table.sql exists ok 100 - Deploy script should look right ok 101 - Revert script should look right ok 102 - Verify script should look right ok 103 - Info should have reported file creation ok 104 - 'Added change in reloaded plan' isa 'App::Sqitch::Plan::Change' ok 105 - Create another add with template_directory and no verify script ok 106 - test-add/deploy/foo_table.sql exists ok 107 - test-add/revert/foo_table.sql does not exist ok 108 - test-add/ferify/foo_table.sql does not exist ok 109 - Should not have "foo_table" in plan ok 110 - Add change "foo_table" ok 111 - test-add/deploy/foo_table.sql exists ok 112 - test-add/revert/foo_table.sql exists ok 113 - test-add/ferify/foo_table.sql does not exist ok 114 - '"foo_table" change' isa 'App::Sqitch::Plan::Change' ok 115 - It should have prompted for a note ok 116 - Change name should be set to "foo_table" ok 117 - It should have requires ok 118 - It should have conflicts ok 119 - It should have a comment ok 120 - Info should report skipping file and include dependencies ok 121 - Create another add with open_editor ok 122 - Should not have "open_editor" in plan ok 123 - Add change "open_editor" ok 124 - 'Added change' isa 'App::Sqitch::Plan::Change' ok 125 - Change name should be set ok 126 - It should have prompted to edit sql files ok 127 - test-add/deploy/open_editor.sql exists ok 128 - test-add/revert/open_editor.sql exists ok 129 - test-add/verify/open_editor.sql exists ok 130 - Deploy script should look right ok 131 - Revert script should look right ok 132 - Verify script should look right ok 133 - Info should have reported file creation ok 134 - Create another add with custom script and no verify ok 135 - Add change "custom_script" ok 136 - 'Added change' isa 'App::Sqitch::Plan::Change' ok 137 - Change name should be set ok 138 - It should have no requires ok 139 - It should have no conflicts ok 140 - It should have prompted for a note ok 141 - test-add/deploy/custom_script.sql exists ok 142 - test-add/revert/custom_script.sql exists ok 143 - test-add/whatev/custom_script.sql exists ok 144 - test-add/verify/custom_script.sql does not exist ok 145 - Deploy script should look right ok 146 - Revert script should look right ok 147 - Whatev script should look right ok 148 - Whatev script should be based on the MySQL verify script ok 149 - Info should have reported file creation ok 150 - 'Added change in reloaded plan' isa 'App::Sqitch::Plan::Change' ok 151 - App::Sqitch::Command::add->can(...) ok 152 - Create a App::Sqitch::Command::add object again ok 153 - Base _parse_opts should return an empty hash ok 154 - _parse_opts() hould use options spec ok 155 - _parse_opts() should parse options spec ok 156 - Args array should be cleared of options ok 157 - _parse_opts() should parse --set options ok 158 - Args array should be cleared of options ok 159 - _parse_opts() should parse --set options with repeting key ok 160 - Args array should be cleared of options ok 161 - _parse_opts() should parse --with, --without, and --user ok 162 - Args array should be cleared of options not ok 163 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/163 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 57 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x1010f9f30)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x1010f9e58)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x1010f9d98)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100e3e500), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at t/base.t line 13 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x100f06df8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x101253b68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x10144b178)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Plan", "class", "App::Sqitch::Plan") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x10121d040)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x10145b7e8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Change", "class", "App::Sqitch::Plan::Change") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x10121d8b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x101467568)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "ChangeList", "class", "App::Sqitch::Plan::ChangeList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x10121d858)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x101472c50)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "LineList", "class", "App::Sqitch::Plan::LineList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x1012540f0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x10147b0f8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Tag", "class", "App::Sqitch::Plan::Tag") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x101254150)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x101483978)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Depend", "class", "App::Sqitch::Plan::Depend") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x101432540)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x1014919f8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DateTime", "class", "App::Sqitch::DateTime") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x10145b4d0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x10149ad90)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x101467268)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x1014a52e0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Config", "class", "App::Sqitch::Config") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x101254078)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x1014ae6e8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "File", "class", "Path::Class::File") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x10146d790)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x1014b6240)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Dir", "class", "Path::Class::Dir") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x1014836a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny::Class=HASH(0x1014c20b0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x10148e120)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny=HASH(0x1014cc450)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x100e3e500), "constraint", CODE(0x101426730)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny=HASH(0x1014d2db0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x100e3e500), "constraint", CODE(0x101426928)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny=HASH(0x1014dd430)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x101431fb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012784f8), Type::Tiny=HASH(0x1014e55a8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x100b1b378)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at /export/home/fly1464/var/megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x1015fa7a8), ARRAY(0x101583438)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/base.t\x{a}use App::Sqitch \@{\$args[0]};"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # # ---------- # Previous test 2 'App::Sqitch->can(...)' # Useless use of array element in void context at (eval 206) line 77. # at (eval 206) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101046240)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002bae88)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10112aee0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/base.t line 51 # # ---------- # Previous test 2 'App::Sqitch->can(...)' # Useless use of array element in void context at (eval 206) line 438. # at (eval 206) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101046240)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002bae88)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10112aee0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/base.t line 51 # # ---------- # Previous test 2 'App::Sqitch->can(...)' # Useless use of array element in void context at (eval 206) line 515. # at (eval 206) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101046240)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002bae88)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10112aee0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/base.t line 51 # # ---------- # Previous test 15 'Default verify_dir should be ./sql/verify' # Useless use of array element in void context at (eval 226) line 43. # at (eval 226) line 43. # eval '{ # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_plan = \${\$_[1]->{\"\\\$default_for_plan\"}};\x{a}"..., HASH(0x1018af4c8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101803bb8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101803bb8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x1002b2f68)) called at t/base.t line 71 # # ---------- # Previous test 15 'Default verify_dir should be ./sql/verify' # Useless use of array element in void context at (eval 227) line 71. # at (eval 227) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019846a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101989020)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015f62a0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x10144b178), "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002b2f68)) called at (eval 226) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1002b2f68)) called at t/base.t line 71 # # ---------- # Previous test 15 'Default verify_dir should be ./sql/verify' # Useless use of array element in void context at (eval 227) line 107. # at (eval 227) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019846a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101989020)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015f62a0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x10144b178), "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002b2f68)) called at (eval 226) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1002b2f68)) called at t/base.t line 71 # # ---------- # Previous test 15 'Default verify_dir should be ./sql/verify' # Useless use of array element in void context at (eval 227) line 256. # at (eval 227) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019846a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101989020)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015f62a0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x10144b178), "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002b2f68)) called at (eval 226) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1002b2f68)) called at t/base.t line 71 # # ---------- # Previous test 16 'An object of class 'App::Sqitch::Plan' isa 'App::Sqitch::Plan'' # Useless use of array element in void context at (eval 229) line 43. # at (eval 229) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x10198e1c8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101804998)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101804998)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x1002b2f68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 240 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002b2f68)) called at (eval 228) line 23 # App::Sqitch::user_name(App::Sqitch=HASH(0x1002b2f68)) called at t/base.t line 72 # # ---------- # Previous test 36 'Engine "pg" should be valid' # Useless use of array element in void context at (eval 264) line 189. # at (eval 264) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019d0918)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e0ca30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c58070)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x101b75d90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101b75d90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101b75a48), "uri", URI::db=ARRAY(0x101beecf8)) called at t/base.t line 125 # # ---------- # Previous test 36 'Engine "pg" should be valid' # Useless use of array element in void context at (eval 264) line 379. # at (eval 264) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019d0918)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e0ca30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c58070)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x101b75d90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101b75d90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101b75a48), "uri", URI::db=ARRAY(0x101beecf8)) called at t/base.t line 125 # # ---------- # Previous test 36 'Engine "pg" should be valid' # Useless use of array element in void context at (eval 264) line 456. # at (eval 264) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019d0918)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e0ca30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c58070)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x101b75d90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101b75d90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101b75a48), "uri", URI::db=ARRAY(0x101beecf8)) called at t/base.t line 125 # # ---------- # Previous test 36 'Engine "pg" should be valid' # Useless use of array element in void context at (eval 264) line 492. # at (eval 264) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019d0918)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e0ca30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c58070)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x101b75d90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101b75d90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101b75a48), "uri", URI::db=ARRAY(0x101beecf8)) called at t/base.t line 125 # # ---------- # Previous test 41 'Engine "sqlite" should be valid' # Useless use of array element in void context at (eval 271) line 189. # at (eval 271) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101e21c48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101eadc38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101e9dcd0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d778), "uri", URI::db=ARRAY(0x101bee398)) called at t/base.t line 125 # # ---------- # Previous test 41 'Engine "sqlite" should be valid' # Useless use of array element in void context at (eval 271) line 379. # at (eval 271) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101e21c48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101eadc38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101e9dcd0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d778), "uri", URI::db=ARRAY(0x101bee398)) called at t/base.t line 125 # # ---------- # Previous test 41 'Engine "sqlite" should be valid' # Useless use of array element in void context at (eval 271) line 456. # at (eval 271) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101e21c48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101eadc38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101e9dcd0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d778), "uri", URI::db=ARRAY(0x101bee398)) called at t/base.t line 125 # # ---------- # Previous test 41 'Engine "sqlite" should be valid' # Useless use of array element in void context at (eval 271) line 492. # at (eval 271) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101e21c48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101eadc38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101e9dcd0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d778), "uri", URI::db=ARRAY(0x101bee398)) called at t/base.t line 125 # # ---------- # Previous test 41 'Engine "sqlite" should be valid' # Useless use of array element in void context at (eval 271) line 528. # at (eval 271) line 528. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101e21c48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101eadc38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101e9dcd0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101e211f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d778), "uri", URI::db=ARRAY(0x101bee398)) called at t/base.t line 125 # # ---------- # Previous test 46 'Engine "mysql" should be valid' # Useless use of array element in void context at (eval 279) line 189. # at (eval 279) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::mysql::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::mysql") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::mysql::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_mysql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_mysql", # name => "_mysql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_mysql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_mysql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_mysql"} = $args->{"_mysql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::mysql::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee1758)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f783e8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101f7b330)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d670), "uri", URI::db=ARRAY(0x101c0e5b8)) called at t/base.t line 125 # # ---------- # Previous test 46 'Engine "mysql" should be valid' # Useless use of array element in void context at (eval 279) line 379. # at (eval 279) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::mysql::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::mysql") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::mysql::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_mysql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_mysql", # name => "_mysql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_mysql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_mysql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_mysql"} = $args->{"_mysql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::mysql::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee1758)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f783e8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101f7b330)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d670), "uri", URI::db=ARRAY(0x101c0e5b8)) called at t/base.t line 125 # # ---------- # Previous test 46 'Engine "mysql" should be valid' # Useless use of array element in void context at (eval 279) line 456. # at (eval 279) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::mysql::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::mysql") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::mysql::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_mysql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_mysql", # name => "_mysql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_mysql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_mysql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_mysql"} = $args->{"_mysql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::mysql::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee1758)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f783e8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101f7b330)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d670), "uri", URI::db=ARRAY(0x101c0e5b8)) called at t/base.t line 125 # # ---------- # Previous test 46 'Engine "mysql" should be valid' # Useless use of array element in void context at (eval 279) line 492. # at (eval 279) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::mysql::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::mysql") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::mysql::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_mysql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_mysql", # name => "_mysql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_mysql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_mysql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_mysql"} = $args->{"_mysql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::mysql::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee1758)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f783e8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101f7b330)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d670), "uri", URI::db=ARRAY(0x101c0e5b8)) called at t/base.t line 125 # # ---------- # Previous test 46 'Engine "mysql" should be valid' # Useless use of array element in void context at (eval 279) line 528. # at (eval 279) line 528. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::mysql::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::mysql") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::mysql::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_mysql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_mysql", # name => "_mysql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_mysql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_mysql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_mysql"} = $args->{"_mysql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::mysql::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee1758)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f783e8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101f7b330)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101f6c6c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9d670), "uri", URI::db=ARRAY(0x101c0e5b8)) called at t/base.t line 125 # # ---------- # Previous test 51 'Engine "oracle" should be valid' # Useless use of array element in void context at (eval 287) line 189. # at (eval 287) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::oracle::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::oracle") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::oracle::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlplus"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlplus", # name => "_sqlplus", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlplus"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlplus\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlplus"} = $args->{"_sqlplus"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tmpdir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tmpdir", # name => "tmpdir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tmpdir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tmpdir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tmpdir"} = $args->{"tmpdir"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::oracle::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101fc5040)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020aa3f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102051868)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::oracle::new("App::Sqitch::Engine::oracle", HASH(0x102045bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102045bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9da78), "uri", URI::db=ARRAY(0x101f79048)) called at t/base.t line 125 # # ---------- # Previous test 51 'Engine "oracle" should be valid' # Useless use of array element in void context at (eval 287) line 379. # at (eval 287) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::oracle::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::oracle") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::oracle::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlplus"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlplus", # name => "_sqlplus", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlplus"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlplus\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlplus"} = $args->{"_sqlplus"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tmpdir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tmpdir", # name => "tmpdir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tmpdir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tmpdir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tmpdir"} = $args->{"tmpdir"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::oracle::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101fc5040)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020aa3f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102051868)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::oracle::new("App::Sqitch::Engine::oracle", HASH(0x102045bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102045bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9da78), "uri", URI::db=ARRAY(0x101f79048)) called at t/base.t line 125 # # ---------- # Previous test 51 'Engine "oracle" should be valid' # Useless use of array element in void context at (eval 287) line 456. # at (eval 287) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::oracle::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::oracle") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::oracle::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlplus"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlplus", # name => "_sqlplus", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlplus"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlplus\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlplus"} = $args->{"_sqlplus"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tmpdir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tmpdir", # name => "tmpdir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tmpdir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tmpdir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tmpdir"} = $args->{"tmpdir"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::oracle::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101fc5040)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020aa3f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102051868)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::oracle::new("App::Sqitch::Engine::oracle", HASH(0x102045bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102045bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9da78), "uri", URI::db=ARRAY(0x101f79048)) called at t/base.t line 125 # # ---------- # Previous test 51 'Engine "oracle" should be valid' # Useless use of array element in void context at (eval 287) line 492. # at (eval 287) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::oracle::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::oracle") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::oracle::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlplus"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlplus", # name => "_sqlplus", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlplus"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlplus\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlplus"} = $args->{"_sqlplus"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tmpdir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tmpdir", # name => "tmpdir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tmpdir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tmpdir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tmpdir"} = $args->{"tmpdir"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::oracle::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101fc5040)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020aa3f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102051868)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::oracle::new("App::Sqitch::Engine::oracle", HASH(0x102045bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102045bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101e9da78), "uri", URI::db=ARRAY(0x101f79048)) called at t/base.t line 125 # # ---------- # Previous test 56 'Engine "firebird" should be valid' # Useless use of array element in void context at (eval 295) line 189. # at (eval 295) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::firebird::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::firebird") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::firebird::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_isql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_isql", # name => "_isql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_isql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_isql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_isql"} = $args->{"_isql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tz_offset"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tz_offset", # name => "tz_offset", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tz_offset"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/)) ? $_[0] : Type::Tiny::_failed_check(65, "Maybe[Int]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tz_offset\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tz_offset"} = $args->{"tz_offset"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::firebird::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10204f490)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102147cc0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102147b58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1020454e0), "uri", URI::db=ARRAY(0x1020aed00)) called at t/base.t line 125 # # ---------- # Previous test 56 'Engine "firebird" should be valid' # Useless use of array element in void context at (eval 295) line 379. # at (eval 295) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::firebird::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::firebird") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::firebird::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_isql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_isql", # name => "_isql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_isql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_isql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_isql"} = $args->{"_isql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tz_offset"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tz_offset", # name => "tz_offset", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tz_offset"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/)) ? $_[0] : Type::Tiny::_failed_check(65, "Maybe[Int]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tz_offset\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tz_offset"} = $args->{"tz_offset"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::firebird::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10204f490)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102147cc0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102147b58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1020454e0), "uri", URI::db=ARRAY(0x1020aed00)) called at t/base.t line 125 # # ---------- # Previous test 56 'Engine "firebird" should be valid' # Useless use of array element in void context at (eval 295) line 456. # at (eval 295) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::firebird::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::firebird") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::firebird::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_isql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_isql", # name => "_isql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_isql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_isql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_isql"} = $args->{"_isql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tz_offset"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tz_offset", # name => "tz_offset", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tz_offset"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/)) ? $_[0] : Type::Tiny::_failed_check(65, "Maybe[Int]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tz_offset\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tz_offset"} = $args->{"tz_offset"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::firebird::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10204f490)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102147cc0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102147b58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1020454e0), "uri", URI::db=ARRAY(0x1020aed00)) called at t/base.t line 125 # # ---------- # Previous test 56 'Engine "firebird" should be valid' # Useless use of array element in void context at (eval 295) line 492. # at (eval 295) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::firebird::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::firebird") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::firebird::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_isql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_isql", # name => "_isql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_isql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_isql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_isql"} = $args->{"_isql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tz_offset"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tz_offset", # name => "tz_offset", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tz_offset"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/)) ? $_[0] : Type::Tiny::_failed_check(65, "Maybe[Int]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tz_offset\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tz_offset"} = $args->{"tz_offset"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::firebird::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10204f490)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102147cc0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102147b58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1020454e0), "uri", URI::db=ARRAY(0x1020aed00)) called at t/base.t line 125 # # ---------- # Previous test 56 'Engine "firebird" should be valid' # Useless use of array element in void context at (eval 295) line 528. # at (eval 295) line 528. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::firebird::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::firebird") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::firebird::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_isql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_isql", # name => "_isql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_isql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_isql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_isql"} = $args->{"_isql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tz_offset"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tz_offset", # name => "tz_offset", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tz_offset"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/)) ? $_[0] : Type::Tiny::_failed_check(65, "Maybe[Int]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tz_offset\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tz_offset"} = $args->{"tz_offset"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::firebird::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10204f490)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102147cc0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102147b58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1020454e0), "uri", URI::db=ARRAY(0x1020aed00)) called at t/base.t line 125 # # ---------- # Previous test 56 'Engine "firebird" should be valid' # Useless use of array element in void context at (eval 295) line 637. # at (eval 295) line 637. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::firebird::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::firebird") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::firebird::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_isql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_isql", # name => "_isql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_isql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_isql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_isql"} = $args->{"_isql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"tz_offset"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tz_offset", # name => "tz_offset", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tz_offset"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/)) ? $_[0] : Type::Tiny::_failed_check(65, "Maybe[Int]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tz_offset\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tz_offset"} = $args->{"tz_offset"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::firebird::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10204f490)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102147cc0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102147b58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x102139bf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1020454e0), "uri", URI::db=ARRAY(0x1020aed00)) called at t/base.t line 125 # # ---------- # Previous test 61 'Engine "vertica" should be valid' # Useless use of array element in void context at (eval 303) line 189. # at (eval 303) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::vertica::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::vertica") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::vertica::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"_vsql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_vsql", # name => "_vsql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_vsql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_vsql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_vsql"} = $args->{"_vsql"}; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::vertica::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee9428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1022d7100)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021aa0a8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::vertica::new("App::Sqitch::Engine::vertica", HASH(0x1021a99a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x1021a99a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1021398f0), "uri", URI::db=ARRAY(0x1020bd928)) called at t/base.t line 125 # # ---------- # Previous test 61 'Engine "vertica" should be valid' # Useless use of array element in void context at (eval 303) line 379. # at (eval 303) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::vertica::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::vertica") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::vertica::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"_vsql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_vsql", # name => "_vsql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_vsql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_vsql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_vsql"} = $args->{"_vsql"}; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::vertica::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee9428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1022d7100)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021aa0a8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::vertica::new("App::Sqitch::Engine::vertica", HASH(0x1021a99a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x1021a99a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1021398f0), "uri", URI::db=ARRAY(0x1020bd928)) called at t/base.t line 125 # # ---------- # Previous test 61 'Engine "vertica" should be valid' # Useless use of array element in void context at (eval 303) line 456. # at (eval 303) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::vertica::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::vertica") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::vertica::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"_vsql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_vsql", # name => "_vsql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_vsql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_vsql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_vsql"} = $args->{"_vsql"}; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::vertica::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee9428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1022d7100)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021aa0a8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::vertica::new("App::Sqitch::Engine::vertica", HASH(0x1021a99a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x1021a99a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1021398f0), "uri", URI::db=ARRAY(0x1020bd928)) called at t/base.t line 125 # # ---------- # Previous test 61 'Engine "vertica" should be valid' # Useless use of array element in void context at (eval 303) line 492. # at (eval 303) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::vertica::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::vertica") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::vertica::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"_vsql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_vsql", # name => "_vsql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_vsql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_vsql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_vsql"} = $args->{"_vsql"}; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::vertica::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ee9428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1022d7100)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021aa0a8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::vertica::new("App::Sqitch::Engine::vertica", HASH(0x1021a99a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x1021a99a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1021398f0), "uri", URI::db=ARRAY(0x1020bd928)) called at t/base.t line 125 # # ---------- # Previous test 114 'Invalid user email error message should be correct' # Useless use of array element in void context at (eval 356) line 70. # at (eval 356) line 70. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1022e82a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1024d9b38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015e1910)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::new("App::Sqitch::Command::help", HASH(0x10120b858)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x102370d78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 345 # App::Sqitch::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x102369ff8), Try::Tiny::Catch=REF(0x10159d2d8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 373 # App::Sqitch::go("App::Sqitch") called at t/base.t line 279 # # ---------- # Previous test 114 'Invalid user email error message should be correct' # Useless use of array element in void context at (eval 357) line 70. # at (eval 357) line 70. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::help::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::help") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::help::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::help::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1024d4e28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1024c46c0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1024c9290)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::help::new("App::Sqitch::Command::help", HASH(0x10120b858)) called at (eval 356) line 25 # App::Sqitch::Command::new("App::Sqitch::Command::help", HASH(0x10120b858)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x102370d78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 345 # App::Sqitch::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x102369ff8), Try::Tiny::Catch=REF(0x10159d2d8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 373 # App::Sqitch::go("App::Sqitch") called at t/base.t line 279 # # Looks like you failed 1 test of 242. t/base.t ............ 1..242 ok 1 - use App::Sqitch; ok 2 - App::Sqitch->can(...) ok 3 - 'A new object' isa 'App::Sqitch' ok 4 - db_client should be undef ok 5 - db_username should be undef ok 6 - db_name should be undef ok 7 - db_host should be undef ok 8 - db_port should be undef ok 9 - Default plan file should be $top_dir/sqitch.plan ok 10 - verbosity should be 1 ok 11 - Default extension should be sql ok 12 - Default top_dir should be . ok 13 - Default deploy_dir should be ./sql/deploy ok 14 - Default revert_dir should be ./sql/revert ok 15 - Default verify_dir should be ./sql/verify ok 16 - An object of class 'App::Sqitch::Plan' isa 'App::Sqitch::Plan' ok 17 - Default user_name should be set from system ok 18 - Default user_email should be set from system ok 19 - Should get exception for no engine_key ok 20 - No engine_key error ident should be "core" ok 21 - No engine_key error message should be correct ok 22 - Should get exception for no engine ok 23 - No engine error ident should be "core" ok 24 - No engine error message should be correct ok 25 - Should get error for unknown engine ok 26 - Unknown engine error ident should be "core" ok 27 - Unknown engine error message should be correct ok 28 - Should derive sqlite engine key from URI ok 29 - Should derive pg engine key from URI ok 30 - Should get error for nonexistent engine ok 31 - Nonexistent engine error ident should be "core" ok 32 - Nonexistent engine error message should be correct ok 33 - Should get error for non-db URI ok 34 - Non-db URI error ident should be "core" ok 35 - Non-DB URI error message should be correct ok 36 - Engine "pg" should be valid ok 37 - 'pg engine' isa 'App::Sqitch::Engine::pg' ok 38 - URI db:pg:foo should have been passed through ok 39 - Create another App::Sqitch::Engine::pg with hash params ok 40 - URI db:pg:foo should have been passed through again ok 41 - Engine "sqlite" should be valid ok 42 - 'sqlite engine' isa 'App::Sqitch::Engine::sqlite' ok 43 - URI db:sqlite:foo should have been passed through ok 44 - Create another App::Sqitch::Engine::sqlite with hash params ok 45 - URI db:sqlite:foo should have been passed through again ok 46 - Engine "mysql" should be valid ok 47 - 'mysql engine' isa 'App::Sqitch::Engine::mysql' ok 48 - URI db:mysql:foo should have been passed through ok 49 - Create another App::Sqitch::Engine::mysql with hash params ok 50 - URI db:mysql:foo should have been passed through again ok 51 - Engine "oracle" should be valid ok 52 - 'oracle engine' isa 'App::Sqitch::Engine::oracle' ok 53 - URI db:oracle:foo should have been passed through ok 54 - Create another App::Sqitch::Engine::oracle with hash params ok 55 - URI db:oracle:foo should have been passed through again ok 56 - Engine "firebird" should be valid ok 57 - 'firebird engine' isa 'App::Sqitch::Engine::firebird' ok 58 - URI db:firebird:foo should have been passed through ok 59 - Create another App::Sqitch::Engine::firebird with hash params ok 60 - URI db:firebird:foo should have been passed through again ok 61 - Engine "vertica" should be valid ok 62 - 'vertica engine' isa 'App::Sqitch::Engine::vertica' ok 63 - URI db:vertica:foo should have been passed through ok 64 - Create another App::Sqitch::Engine::vertica with hash params ok 65 - URI db:vertica:foo should have been passed through again ok 66 - Should get no string for no DB param ok 67 - Should get no string for undef DB param ok 68 - Should get no string for empty DB param ok 69 - Should get no string for DB param 0 ok 70 - Should get target back from config_for_target() ok 71 - Should get target for URI key ok 72 - The URI should have been fetched from the config ok 73 - Should get back undef when no URI for key ok 74 - The URI should have been sought in the config ok 75 - Should get URI back for URI param ok 76 - 'DB URI' isa 'URI::db' ok 77 - Should get target back for URI key ok 78 - The target should have been fetched from the config ok 79 - 'DB URI from config' isa 'URI::db' ok 80 - The new URI should have been fetched from the config ok 81 - Should get an exception for unknown config DB key ok 82 - Unknown key error ident should be "core" ok 83 - The unknown key error message should be correct ok 84 - 'Engine for DB' isa 'App::Sqitch::Engine' ok 85 - Should get default engine for no DB param ok 86 - Should get default engine for undef DB param ok 87 - Should get default engine for empty DB param ok 88 - Should get default engine for DB param 0 ok 89 - Should get default engine target ok 90 - An object of class 'App::Sqitch::Engine::sqlite' isa 'App::Sqitch::Engine' ok 91 - Should get properly configured engine URI ok 92 - Should get properly-configured target for URI ok 93 - Should get engine with URI for URI key ok 94 - 'Engine with URI from config' isa 'App::Sqitch::Engine' ok 95 - Engine should know target as "bob" ok 96 - Engine should have bob URI ok 97 - 'Engine with URI param' isa 'App::Sqitch::Engine' ok 98 - Engine should know target by URI ok 99 - Engine should have URI ok 100 - 'Engine with URI param' isa 'App::Sqitch::Engine' ok 101 - Engine should know target by URI ok 102 - Engine should have URI ok 103 - Should get an exception for unknown config DB key ok 104 - Unknown key error ident should be "core" ok 105 - The unknown key error message should be correct ok 106 - Should get error for user name containing "<" ok 107 - Invalid user name error ident should be "user" ok 108 - Invalid user name error message should be correct ok 109 - Should get error for user name starting with "[" ok 110 - Second Invalid user name error ident should be "user" ok 111 - Second Invalid user name error message should be correct ok 112 - Should get error for user email containing ">" ok 113 - Invalid user email error ident should be "user" ok 114 - Invalid user email error message should be correct ok 115 - Should get 0 from go() ok 116 - 'Command' isa 'App::Sqitch::Command::help' ok 117 - Extra args should be passed to execute ok 118 - An object of class 'App::Sqitch' isa 'App::Sqitch' ok 119 - Engine should be set by option ok 120 - ddl should be set by config ok 121 - Get the Sqitch config ok 122 - Should have local config overriding user ok 123 - Should fall back on user config ok 124 - Should have read user name from configuration ok 125 - Should have read user email from configuration ok 126 - Go should return 2 on Sqitch exception ok 127 - The error should have been vented ok 128 - The stack trace should have been sent to trace ok 129 - Go should return exitval on another exception ok 130 - Both the message and the trace should have been vented ok 131 - Nothing should have been traced ok 132 - Go should return 2 on a third Sqitch exception ok 133 - Should have one thing vented ok 134 - And it should include our message ok 135 - editor should use use parameter ok 136 - editor should use $EDITOR ok 137 - editor should prefer $SQITCH_EDITOR ok 138 - editor fall back on vi when not Windows ok 139 - editor fall back on notepad on Windows ok 140 - trace should work ok 141 - Should get no trace output for verbosity 2 ok 142 - trace_literal should work ok 143 - Should get no trace_literal output for verbosity 2 ok 144 - debug should work ok 145 - Should get no debug output for verbosity 1 ok 146 - debug_literal should work ok 147 - Should get no debug_literal output for verbosity 1 ok 148 - info should work ok 149 - Should get no info output for verbosity 0 ok 150 - info_literal should work ok 151 - Should get no info_literal output for verbosity 0 ok 152 - comment should work ok 153 - comment should work with verbosity 0 ok 154 - comment_literal should work ok 155 - comment_literal should work with verbosity 0 ok 156 - emit should work ok 157 - emit should work even with verbosity 0 ok 158 - emit_literal should work ok 159 - emit_literal should work even with verbosity 0 ok 160 - warn should work ok 161 - warn_literal should work ok 162 - vent should work ok 163 - vent_literal should work ok 164 - App::Sqitch->can('run') ok 165 - Should get success back from run echo ok 166 - The echo script should have run ok 167 - Nothing should have gone to STDERR ok 168 - run die should, well, die ok 169 - The die script should have its STDOUT ummolested ok 170 - The die script should have its STDERR unmolested ok 171 - App::Sqitch->can('shell') ok 172 - Should get success back from shell echo ok 173 - The echo script should have shell ok 174 - Nothing should have gone to STDERR ok 175 - shell die should, well, die ok 176 - The die script should have its STDOUT ummolested ok 177 - The die script should have its STDERR unmolested ok 178 - quote_shell should work ok 179 - App::Sqitch->can('capture') ok 180 - The echo script output should have been returned ok 181 - Should get an error if the command errors out ok 182 - The die script STDERR should have passed through ok 183 - App::Sqitch->can('probe') ok 184 - Should have just chomped first line of output ok 185 - App::Sqitch->can('spool') ok 186 - Spool to read.pl ok 187 - Data should have been sent to STDOUT by read.pl ok 188 - Spool to read.pl ok 189 - All data should have been sent to STDOUT by read.pl ok 190 - Should get error when die.pl dies ok 191 - Error ident should be "io" ok 192 - The error message should be one of the I/O messages ok 193 - The die script STDERR should have passed through ok 194 - Should get an error for a bad command ok 195 - Error ident should be "io" ok 196 - Error message should be about inability to exec ok 197 - Should get error for no prompt message ok 198 - No prompt ident should be "DEV" ok 199 - No prompt error message should be correct ok 200 - Prompt should return input ok 201 - Prompt should prompt ok 202 - Prompt with default should return input ok 203 - Prompt should prompt with default ok 204 - Prompt with undef default should return input ok 205 - Prompt should prompt with bracket for undef default ok 206 - Prompt should return default for undef input ok 207 - Prompt should show default when undef input ok 208 - Prompt should return input for empty input ok 209 - Prompt should show default when empty input ok 210 - Should get error when uattended and no default ok 211 - Unattended error ident should be "io" ok 212 - Unattended error message should be correct ok 213 - Prompt should return input ok 214 - Prompt should show default as selected when unattended ok 215 - Should get error for no ask_y_n message ok 216 - No ask_y_n ident should be "DEV" ok 217 - No ask_y_n error message should be correct ok 218 - Should get error for invalid ask_y_n default ok 219 - Invalid ask_y_n default ident should be "DEV" ok 220 - Invalid ask_y_n default error message should be correct ok 221 - ask_y_n should return true for "y" input ok 222 - ask_y_n() should prompt ok 223 - ask_y_n should return false for "no" input ok 224 - ask_y_n() should prompt for no ok 225 - ask_y_n should return false for "Nein" ok 226 - ask_y_n() should prompt for no ok 227 - ask_y_n should return true for "Yep" ok 228 - ask_y_n() should prompt for yes ok 229 - ask_y_n should return true default "y" ok 230 - ask_y_n() should prompt and show default "y" ok 231 - ask_y_n should return false default "n" ok 232 - ask_y_n() should prompt and show default "n" ok 233 - Should get error for bad answers ok 234 - Bad answers ident should be "IO" ok 235 - Bad answers message should be correct ok 236 - _readline should work ok 237 - _readline should return undef when unattended ok 238 - Localied string should be valid UTF-8 ok 239 - Localied string should be decoded ok 240 - Localied string should be valid UTF-8 ok 241 - Localied string should be decoded not ok 242 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/242 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 26 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x101178520)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x101178448)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x101178388)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100ebdcc0), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x100f87ef8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x1011dece8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x1013da030)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Plan", "class", "App::Sqitch::Plan") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x1011a64a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x1013e9d70)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Change", "class", "App::Sqitch::Plan::Change") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x1011ddf50)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x1013eccd8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "ChangeList", "class", "App::Sqitch::Plan::ChangeList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x1011ddef0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x1013f6658)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "LineList", "class", "App::Sqitch::Plan::LineList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x1011efd68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x101400780)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Tag", "class", "App::Sqitch::Plan::Tag") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x1011efdc8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x101408238)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Depend", "class", "App::Sqitch::Plan::Depend") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x1013bf378)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x101410070)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DateTime", "class", "App::Sqitch::DateTime") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x1013e54e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x10141a510)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x1013ec9d8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x101422328)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Config", "class", "App::Sqitch::Config") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x1011efcf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x101427048)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "File", "class", "Path::Class::File") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x1013f6370)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x101433df0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Dir", "class", "Path::Class::Dir") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x101407f68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny::Class=HASH(0x101439678)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x10140fda0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny=HASH(0x1014401a0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x100ebdcc0), "constraint", CODE(0x1013b06e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny=HASH(0x10144d6e8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x100ebdcc0), "constraint", CODE(0x1013b08e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny=HASH(0x101454448)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x1013b0aa8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101203500), Type::Tiny=HASH(0x101459420)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x100c22be8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at /export/home/fly1464/var/megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x101569f08), ARRAY(0x101479fd8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # # ---------- # Previous test 2 'App::Sqitch::Plan::Blank->can(...)' # Useless use of array element in void context at (eval 197) line 77. # at (eval 197) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010ba9b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d4ad0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10087e978)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/blank.t line 39 # # ---------- # Previous test 2 'App::Sqitch::Plan::Blank->can(...)' # Useless use of array element in void context at (eval 197) line 438. # at (eval 197) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010ba9b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d4ad0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10087e978)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/blank.t line 39 # # ---------- # Previous test 2 'App::Sqitch::Plan::Blank->can(...)' # Useless use of array element in void context at (eval 197) line 515. # at (eval 197) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010ba9b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d4ad0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10087e978)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/blank.t line 39 # # ---------- # Previous test 2 'App::Sqitch::Plan::Blank->can(...)' # Useless use of array element in void context at (eval 198) line 71. # at (eval 198) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1018dc158)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018dc110)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101564b20)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2fe0)) called at t/blank.t line 40 # # ---------- # Previous test 2 'App::Sqitch::Plan::Blank->can(...)' # Useless use of array element in void context at (eval 198) line 107. # at (eval 198) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1018dc158)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018dc110)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101564b20)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2fe0)) called at t/blank.t line 40 # # ---------- # Previous test 2 'App::Sqitch::Plan::Blank->can(...)' # Useless use of array element in void context at (eval 198) line 256. # at (eval 198) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1018dc158)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018dc110)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101564b20)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2fe0)) called at t/blank.t line 40 # # ---------- # Previous test 2 'App::Sqitch::Plan::Blank->can(...)' # Useless use of array element in void context at (eval 199) line 262. # at (eval 199) line 262. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019464b0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019b41d0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015e9cc0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101974ca8)) called at t/blank.t line 41 # # Looks like you failed 1 test of 34. t/blank.t ........... 1..34 ok 1 - require App::Sqitch::Plan::Blank; ok 2 - App::Sqitch::Plan::Blank->can(...) ok 3 - An object of class 'App::Sqitch::Plan::Blank' isa 'App::Sqitch::Plan::Blank' ok 4 - An object of class 'App::Sqitch::Plan::Blank' isa 'App::Sqitch::Plan::Line' ok 5 - Name should format as "" ok 6 - should stringify to "" ok 7 - Create tag with more stuff ok 8 - It should stringify correctly ok 9 - Create a blank with newlines and backslashes in the note ok 10 - The newlines and backslashe should not be escaped ok 11 - The newlines and backslahs should be escaped by format_note ok 12 - Create a blank with escapes ok 13 - Note shoud be unescaped ok 14 - Should trim Leading newlines from note ok 15 - Should trim Leading line feeds from note ok 16 - Should trim Trailing newlines from note ok 17 - Should trim trailing line feeds from note ok 18 - Should trim Leading and trailing vertical space from note ok 19 - Should trim Leading and trailing newlines and spaces from note ok 20 - Should have localized not prompt ok 21 - Shell command should start with editor ok 22 - Temp file should exist ok 23 - Temp file contents should include prompt ok 24 - Should get exception for no note text ok 25 - No note error ident should be "plan" ok 26 - No note error message should be correct ok 27 - Exit val should be 1 ok 28 - Shell command should start with editor ok 29 - Temp file should exist ok 30 - Temp file contents should include prompt ok 31 - Request note ok 32 - Should have the edited note ok 33 - The request should not prompt again not ok 34 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/34 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 29 warning(s) # Previous test 0 '' # Useless use of array element in void context at (eval 198) line 77. # at (eval 198) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b36a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/bundle.t line 26 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 198) line 438. # at (eval 198) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b36a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/bundle.t line 26 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 198) line 515. # at (eval 198) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b36a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/bundle.t line 26 # # ---------- # Previous test 1 'Load a sqitch object' # Useless use of array element in void context at (eval 206) line 250. # at (eval 206) line 250. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::bundle::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::bundle") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::bundle::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"dest_deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_deploy_dir", # name => "dest_deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_deploy_dir"} = $args->{"dest_deploy_dir"}; # } # if (exists $args->{"dest_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_dir", # name => "dest_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_dir"} = $args->{"dest_dir"}; # } # if (exists $args->{"dest_revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_revert_dir", # name => "dest_revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_revert_dir"} = $args->{"dest_revert_dir"}; # } # if (exists $args->{"dest_top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_top_dir", # name => "dest_top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_top_dir"} = $args->{"dest_top_dir"}; # } # if (exists $args->{"dest_verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_verify_dir", # name => "dest_verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_verify_dir"} = $args->{"dest_verify_dir"}; # } # if (exists $args->{"from"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "from", # name => "from", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"from"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"from\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"from"} = $args->{"from"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"to"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "to", # name => "to", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"to"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"to\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"to"} = $args->{"to"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::bundle::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1018e8040)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019da6b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1019d7128)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::bundle::new("App::Sqitch::Command::bundle", HASH(0x1019c3458)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/bundle.t line 28 # # ---------- # Previous test 1 'Load a sqitch object' # Useless use of array element in void context at (eval 206) line 286. # at (eval 206) line 286. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::bundle::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::bundle") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::bundle::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"dest_deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_deploy_dir", # name => "dest_deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_deploy_dir"} = $args->{"dest_deploy_dir"}; # } # if (exists $args->{"dest_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_dir", # name => "dest_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_dir"} = $args->{"dest_dir"}; # } # if (exists $args->{"dest_revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_revert_dir", # name => "dest_revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_revert_dir"} = $args->{"dest_revert_dir"}; # } # if (exists $args->{"dest_top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_top_dir", # name => "dest_top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_top_dir"} = $args->{"dest_top_dir"}; # } # if (exists $args->{"dest_verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_verify_dir", # name => "dest_verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_verify_dir"} = $args->{"dest_verify_dir"}; # } # if (exists $args->{"from"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "from", # name => "from", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"from"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"from\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"from"} = $args->{"from"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"to"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "to", # name => "to", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"to"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"to\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"to"} = $args->{"to"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::bundle::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1018e8040)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019da6b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1019d7128)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::bundle::new("App::Sqitch::Command::bundle", HASH(0x1019c3458)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/bundle.t line 28 # # ---------- # Previous test 1 'Load a sqitch object' # Useless use of array element in void context at (eval 206) line 322. # at (eval 206) line 322. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::bundle::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::bundle") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::bundle::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"dest_deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_deploy_dir", # name => "dest_deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_deploy_dir"} = $args->{"dest_deploy_dir"}; # } # if (exists $args->{"dest_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_dir", # name => "dest_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_dir"} = $args->{"dest_dir"}; # } # if (exists $args->{"dest_revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_revert_dir", # name => "dest_revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_revert_dir"} = $args->{"dest_revert_dir"}; # } # if (exists $args->{"dest_top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_top_dir", # name => "dest_top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_top_dir"} = $args->{"dest_top_dir"}; # } # if (exists $args->{"dest_verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dest_verify_dir", # name => "dest_verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dest_verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dest_verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dest_verify_dir"} = $args->{"dest_verify_dir"}; # } # if (exists $args->{"from"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "from", # name => "from", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"from"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"from\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"from"} = $args->{"from"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"to"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "to", # name => "to", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"to"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"to\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"to"} = $args->{"to"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::bundle::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1018e8040)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019da6b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1019d7128)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::bundle::new("App::Sqitch::Command::bundle", HASH(0x1019c3458)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/bundle.t line 28 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 252) line 43. # at (eval 252) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019f5528)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a02f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a02f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x101af72b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 253) line 71. # at (eval 253) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ac9370)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ac0580)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101af72b8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x101af72b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101af72b8)) called at (eval 252) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101af72b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 253) line 107. # at (eval 253) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ac9370)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ac0580)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101af72b8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x101af72b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101af72b8)) called at (eval 252) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101af72b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 253) line 256. # at (eval 253) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ac9370)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ac0580)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101af72b8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x101af72b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101af72b8)) called at (eval 252) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101af72b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 254) line 43. # at (eval 254) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5flines = ${$_[1]->{"\\$default_for__5flines"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_lines { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_lines is a read-only accessor" if @_ > 1; # exists $_[0]->{"_lines"} ? # $_[0]->{"_lines"} # : do { # my $value = $default_for__5flines->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_lines"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_lines # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101abf8a8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014ab358)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ab358)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 257) line 298, line 1. # at (eval 257) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101a95630)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101c14ff8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101580948)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of hash element in void context at (eval 257) line 311, line 1. # at (eval 257) line 311, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101a95630)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101c14ff8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101580948)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 258) line 262, line 2. # at (eval 258) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101b2ad40)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101c151c0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101519ba8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "lspace", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 269) line 597, line 3. # at (eval 269) line 597, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b3c0a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b2b460)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "lopspace", "", "rspace", " ", "operator", "+", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 269) line 633, line 3. # at (eval 269) line 633, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b3c0a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b2b460)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "lopspace", "", "rspace", " ", "operator", "+", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 269) line 906, line 3. # at (eval 269) line 906, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b3c0a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b2b460)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "lopspace", "", "rspace", " ", "operator", "+", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of hash element in void context at (eval 269) line 646, line 3. # at (eval 269) line 646, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b3c0a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b2b460)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "lopspace", "", "rspace", " ", "operator", "+", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 270) line 61, line 4. # at (eval 270) line 61, line 4. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10214d0a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b4ca90)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", App::Sqitch::Plan::Change=HASH(0x1020cea58), "rspace", " ", "timestamp", App::Sqitch::DateTime=HASH(0x101b30838), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 270) line 441, line 4. # at (eval 270) line 441, line 4. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10214d0a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b4ca90)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", App::Sqitch::Plan::Change=HASH(0x1020cea58), "rspace", " ", "timestamp", App::Sqitch::DateTime=HASH(0x101b30838), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 270) line 637, line 4. # at (eval 270) line 637, line 4. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10214d0a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b4ca90)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", App::Sqitch::Plan::Change=HASH(0x1020cea58), "rspace", " ", "timestamp", App::Sqitch::DateTime=HASH(0x101b30838), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 272) line 57, line 5. # at (eval 272) line 57, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1021da100)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102210210)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", "users", "conflicts", 0) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 272) line 206, line 5. # at (eval 272) line 206, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1021da100)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102210210)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", "users", "conflicts", 0) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 272) line 278, line 5. # at (eval 272) line 278, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1021da100)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102210210)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", "users", "conflicts", 0) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 272) line 314, line 5. # at (eval 272) line 314, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1021da100)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102210210)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", "users", "conflicts", 0) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 272) line 350, line 5. # at (eval 272) line 350, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1021da100)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102210210)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", "users", "conflicts", 0) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 272) line 386, line 5. # at (eval 272) line 386, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1021da100)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102210210)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ac0508), "change", "users", "conflicts", 0) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x10169fd80), IO::File=GLOB(0x101a8ae68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 255) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 254) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 273) line 43, line 6. # at (eval 273) line 43, line 6. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x102263448)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014ab628)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ab628)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 586 # App::Sqitch::Plan::find(App::Sqitch::Plan=HASH(0x101ac0508), "widgets") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 926 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 287) line 43, line 6. # at (eval 287) line 43, line 6. # eval '{ # my $default_for_project = ${$_[1]->{"\\$default_for_project"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::project { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "project is a read-only accessor" if @_ > 1; # exists $_[0]->{"project"} ? # $_[0]->{"project"} # : do { # my $value = $default_for_project->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"project"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::project # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_project = \${\$_[1]->{\"\\\$default_for_projec"..., HASH(0x1022d4750)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10150e5b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10150e5b8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::project(App::Sqitch::Plan::Depend=HASH(0x1022103d8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Depend.pm line 167 # App::Sqitch::Plan::Depend::as_string(App::Sqitch::Plan::Depend=HASH(0x1022103d8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 117 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x1022d3dd8)) called at (eval 275) line 22 # App::Sqitch::Plan::Change::info(App::Sqitch::Plan::Change=HASH(0x1022d3dd8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 138 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x1022d3dd8)) called at (eval 274) line 22 # App::Sqitch::Plan::Change::id(App::Sqitch::Plan::Change=HASH(0x1022d3dd8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 189 # App::Sqitch::Plan::ChangeList::append(App::Sqitch::Plan::ChangeList=HASH(0x1022e06d8), App::Sqitch::Plan::Change=HASH(0x1020cea58), App::Sqitch::Plan::Change=HASH(0x1022d3dd8), App::Sqitch::Plan::Change=HASH(0x1022d40a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 19 # App::Sqitch::Plan::ChangeList::new("App::Sqitch::Plan::ChangeList", App::Sqitch::Plan::Change=HASH(0x1020cea58), App::Sqitch::Plan::Change=HASH(0x1022d3dd8), App::Sqitch::Plan::Change=HASH(0x1022d40a8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101353960), App::Sqitch::Plan::Change=HASH(0x1020cea58), App::Sqitch::Plan::Change=HASH(0x1022d3dd8), App::Sqitch::Plan::Change=HASH(0x1022d40a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101ac0508)) called at (eval 273) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x101ac0508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 586 # App::Sqitch::Plan::find(App::Sqitch::Plan=HASH(0x101ac0508), "widgets") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 926 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x101ac0508), Path::Class::File=HASH(0x101ac0478), "widgets", undef) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x101479938)) called at t/bundle.t line 257 # # Looks like you failed 1 test of 132. t/bundle.t .......... 1..132 ok 1 - Load a sqitch object ok 2 - 'bundle command' isa 'App::Sqitch::Command::bundle' ok 3 - App::Sqitch::Command::bundle->can(...) ok 4 - Should have dest_dir option ok 5 - Default dest_dir should be bundle/ ok 6 - Should have dest top dir ok 7 - Default config should be empty ok 8 - --dest_dir should be converted to a path object by configure() ok 9 - --from and --to should be passed through configure ok 10 - Load a sqitch object with top_dir ok 11 - bundle.dest_dir config should be converted to a path object by configure() ok 12 - 'another bundle command' isa 'App::Sqitch::Command::bundle' ok 13 - dest_dir should be "_build/sql" ok 14 - Dest top dir should be _build/sql/sql/ ok 15 - Dest deploy dir should be _build/sql/sql/deploy ok 16 - Dest revert dir should be _build/sql/sql/revert ok 17 - Dest verify dir should be _build/sql/sql/verify ok 18 - Load a sqitch object with engine top_dir ok 19 - 'engine bundle command' isa 'App::Sqitch::Command::bundle' ok 20 - dest_dir should again be "_build/sql" ok 21 - Dest deploy dir should be _build/sql/engine/deploy ok 22 - Dest revert dir should be _build/sql/engine/revert ok 23 - Dest verify dir should be _build/sql/engine/verify ok 24 - Path delete.me should not exist ok 25 - Create delete.me ok 26 - Path delete.me should now exist ok 27 - The mkdir info should have been output ok 28 - Create delete.me again ok 29 - Path delete.me should still exist ok 30 - Nothing should have been emitted ok 31 - Should fail on permission issue ok 32 - Permission error should have ident "bundle" ok 33 - The permission error should be formatted properly ok 34 - File delete.me/deploy/roles.sql should not exist ok 35 - Copy sql/deploy/roles.sql to delete.me/deploy/roles.sql ok 36 - File delete.me/deploy/roles.sql should now exist ok 37 - delete.me/deploy/roles.sql and sql/deploy/roles.sql contents are the same ok 38 - The mkdir and copy info should have been output ok 39 - Copy sql/deploy/roles.sql to delete.me/deploy/roles.sql again ok 40 - File delete.me/deploy/roles.sql should still exist ok 41 - delete.me/deploy/roles.sql and sql/deploy/roles.sql contents are the same ok 42 - Should have no debugging output ok 43 - Copy sql/deploy/roles.sql to old delete.me/deploy/roles.sql ok 44 - File delete.me/deploy/roles.sql should still be there ok 45 - delete.me/deploy/roles.sql and sql/deploy/roles.sql contents are the same ok 46 - Only copy message should again have been emitted ok 47 - Copy sql/deploy/users.sql to delete.me/deploy/roles.sql ok 48 - File delete.me/deploy/roles.sql should now exist ok 49 - delete.me/deploy/roles.sql and sql/deploy/users.sql contents are the same ok 50 - Again only Copy message should have been emitted ok 51 - Should get exception when source file does not exist ok 52 - Nonexistent file error ident should be "bundle" ok 53 - Nonexistent file error message should be correct ok 54 - Should get exception when copy returns false ok 55 - Copy fail ident should be "bundle" ok 56 - Copy fail error message should be correct ok 57 - _build/sql/sqitch.conf does not exist ok 58 - Bundle the config file ok 59 - _build/sql/sqitch.conf exists ok 60 - _build/sql/sqitch.conf and sqitch.conf contents are the same ok 61 - Should have config notice ok 62 - _build/sql/engine/sqitch.plan does not exist ok 63 - Bundle the plan file ok 64 - _build/sql/engine/sqitch.plan exists ok 65 - _build/sql/engine/sqitch.plan and engine/sqitch.plan contents are the same ok 66 - Should have plan notice ok 67 - '--from bundle command' isa 'App::Sqitch::Command::bundle' ok 68 - From should be "widgets" ok 69 - Bundle the plan file with --from ok 70 - Statement of the bits written should have been emitted ok 71 - Plan should have written only "widgets" ok 72 - '--to bundle command' isa 'App::Sqitch::Command::bundle' ok 73 - To should be "users" ok 74 - Bundle the plan file with --to ok 75 - Statement of the bits written should have been emitted ok 76 - Plan should have written only "users" and its tags ok 77 - _build/sql/engine/deploy/users.sql does not exist ok 78 - _build/sql/engine/revert/users.sql does not exist ok 79 - _build/sql/engine/deploy/widgets.sql does not exist ok 80 - _build/sql/engine/revert/widgets.sql does not exist ok 81 - _build/sql/engine/deploy/func/add_user.sql does not exist ok 82 - _build/sql/engine/revert/func/add_user.sql does not exist ok 83 - Load engine sqitch object ok 84 - 'another bundle command' isa 'App::Sqitch::Command::bundle' ok 85 - Bundle scripts ok 86 - _build/sql/engine/deploy/users.sql exists ok 87 - _build/sql/engine/revert/users.sql exists ok 88 - _build/sql/engine/deploy/widgets.sql exists ok 89 - _build/sql/engine/revert/widgets.sql exists ok 90 - _build/sql/engine/deploy/func/add_user.sql exists ok 91 - _build/sql/engine/revert/func/add_user.sql exists ok 92 - Should have change notices ok 93 - 'bundle from "widgets"' isa 'App::Sqitch::Command::bundle' ok 94 - Bundle scripts ok 95 - _build/sql/engine/deploy/users.sql does not exist ok 96 - _build/sql/engine/revert/users.sql does not exist ok 97 - _build/sql/engine/deploy/widgets.sql exists ok 98 - _build/sql/engine/revert/widgets.sql exists ok 99 - Should have only "widets" in change notices ok 100 - 'bundle to "users"' isa 'App::Sqitch::Command::bundle' ok 101 - Bundle scripts ok 102 - _build/sql/engine/deploy/users.sql exists ok 103 - _build/sql/engine/revert/users.sql exists ok 104 - _build/sql/engine/deploy/widgets.sql does not exist ok 105 - _build/sql/engine/revert/widgets.sql does not exist ok 106 - Should have only "users" in change notices ok 107 - Should die on nonexistent from change ok 108 - Nonexistent from change ident should be "bundle" ok 109 - Nonexistent from message change should be correct ok 110 - Should die on nonexistent to change ok 111 - Nonexistent to change ident should be "bundle" ok 112 - Nonexistent to message change should be correct ok 113 - _build/sql/sqitch.conf does not exist ok 114 - _build/sql/engine/sqitch.plan does not exist ok 115 - _build/sql/engine/deploy/users.sql does not exist ok 116 - _build/sql/engine/revert/users.sql does not exist ok 117 - _build/sql/engine/deploy/widgets.sql does not exist ok 118 - _build/sql/engine/revert/widgets.sql does not exist ok 119 - _build/sql/engine/deploy/func/add_user.sql does not exist ok 120 - _build/sql/engine/revert/func/add_user.sql does not exist ok 121 - 'another bundle command' isa 'App::Sqitch::Command::bundle' ok 122 - Execute! ok 123 - _build/sql/sqitch.conf exists ok 124 - _build/sql/engine/sqitch.plan exists ok 125 - _build/sql/engine/deploy/users.sql exists ok 126 - _build/sql/engine/revert/users.sql exists ok 127 - _build/sql/engine/deploy/widgets.sql exists ok 128 - _build/sql/engine/revert/widgets.sql exists ok 129 - _build/sql/engine/deploy/func/add_user.sql exists ok 130 - _build/sql/engine/revert/func/add_user.sql exists ok 131 - Should have all notices not ok 132 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/132 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 45 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x100bc6f00)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x100bc6e28)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x100bc6d68)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100e97138), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x100f59498)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x101185060)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1013b6910)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Plan", "class", "App::Sqitch::Plan") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x101181758)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1013c0108)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Change", "class", "App::Sqitch::Plan::Change") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x1011c4da0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1013c8da0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "ChangeList", "class", "App::Sqitch::Plan::ChangeList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x1011c4d40)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1013d23f8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "LineList", "class", "App::Sqitch::Plan::LineList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x1011855e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1013d8b40)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Tag", "class", "App::Sqitch::Plan::Tag") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x1011cc7f0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1013e3d18)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Depend", "class", "App::Sqitch::Plan::Depend") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x1011c4c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1013ea0c0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DateTime", "class", "App::Sqitch::DateTime") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x1013bfb20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1013f0928)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x1011cd1f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x101400c58)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Config", "class", "App::Sqitch::Config") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x101185570)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x1014050b8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "File", "class", "Path::Class::File") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x1013cfae8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x10140c270)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Dir", "class", "Path::Class::Dir") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x1013e3a78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny::Class=HASH(0x101414ec8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x1013e9e20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny=HASH(0x10141e340)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x100e97138), "constraint", CODE(0x101390ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny=HASH(0x101424de0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x100e97138), "constraint", CODE(0x101390ed8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny=HASH(0x10142d948)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x1013910a0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c4c98), Type::Tiny=HASH(0x1014316e0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x100bfcb88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at /export/home/fly1464/var/megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x101540e48), ARRAY(0x101511618)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 196) line 77. # at (eval 196) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010976a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018222b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100441768)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/change.t line 67 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 196) line 438. # at (eval 196) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010976a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018222b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100441768)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/change.t line 67 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 196) line 515. # at (eval 196) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010976a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018222b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100441768)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/change.t line 67 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 197) line 71. # at (eval 197) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10183fd80)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d8ea8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153d640)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018229d0)) called at t/change.t line 68 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 197) line 107. # at (eval 197) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10183fd80)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d8ea8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153d640)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018229d0)) called at t/change.t line 68 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 197) line 256. # at (eval 197) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x10183fd80)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d8ea8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153d640)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018229d0)) called at t/change.t line 68 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 205) line 597. # at (eval 205) line 597. # eval '{ # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_planner_5femail = \${\$_[1]->{\"\\\$isa_chec"..., HASH(0x1018ed9e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017e0ca8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015ef100)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x1018d8f80)) called at t/change.t line 76 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 205) line 633. # at (eval 205) line 633. # eval '{ # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_planner_5femail = \${\$_[1]->{\"\\\$isa_chec"..., HASH(0x1018ed9e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017e0ca8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015ef100)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x1018d8f80)) called at t/change.t line 76 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 205) line 906. # at (eval 205) line 906. # eval '{ # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_planner_5femail = \${\$_[1]->{\"\\\$isa_chec"..., HASH(0x1018ed9e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017e0ca8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015ef100)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x1018d8f80)) called at t/change.t line 76 # # ---------- # Previous test 2 'App::Sqitch::Plan::Change->can(...)' # Useless use of array element in void context at (eval 209) line 43. # at (eval 209) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1019a7550)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017515e0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1017515e0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x1018229d0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018229d0)) called at (eval 208) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x1018229d0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101959a80)) called at (eval 205) line 649 # App::Sqitch::Plan::Change::new(undef, "name", "foo", "plan", App::Sqitch::Plan=HASH(0x1018d8f80)) called at t/change.t line 76 # # ---------- # Previous test 8 ''Timestamp' isa 'App::Sqitch::DateTime'' # Useless use of array element in void context at (eval 223) line 61. # at (eval 223) line 61. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101860470)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a65c28)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015792c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018d8f80), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x101959a80)) called at t/change.t line 87 # # ---------- # Previous test 8 ''Timestamp' isa 'App::Sqitch::DateTime'' # Useless use of array element in void context at (eval 223) line 441. # at (eval 223) line 441. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101860470)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a65c28)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015792c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018d8f80), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x101959a80)) called at t/change.t line 87 # # ---------- # Previous test 8 ''Timestamp' isa 'App::Sqitch::DateTime'' # Useless use of array element in void context at (eval 223) line 637. # at (eval 223) line 637. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101860470)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a65c28)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015792c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018d8f80), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x101959a80)) called at t/change.t line 87 # # ---------- # Previous test 8 ''Timestamp' isa 'App::Sqitch::DateTime'' # Useless use of hash element in void context at (eval 223) line 74. # at (eval 223) line 74. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101860470)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a65c28)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015792c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018d8f80), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x101959a80)) called at t/change.t line 87 # # ---------- # Previous test 8 ''Timestamp' isa 'App::Sqitch::DateTime'' # Useless use of hash element in void context at (eval 223) line 454. # at (eval 223) line 454. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101860470)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a65c28)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015792c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018d8f80), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x101959a80)) called at t/change.t line 87 # # ---------- # Previous test 34 'Parent should be undef' # Useless use of array element in void context at (eval 251) line 298, line 1. # at (eval 251) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101a677b0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020a6ef0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10162a4e0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x1018d8f80), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1018d8f80), Path::Class::File=HASH(0x101744050), IO::File=GLOB(0x10154dda0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1018d8f80)) called at (eval 249) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1018d8f80)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1018d8f80)) called at (eval 248) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1018d8f80)) called at (eval 247) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Change=HASH(0x101959a80)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 152 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101959a80)) called at (eval 246) line 22 # App::Sqitch::Plan::Change::old_info(App::Sqitch::Plan::Change=HASH(0x101959a80)) called at t/change.t line 155 # # ---------- # Previous test 34 'Parent should be undef' # Useless use of array element in void context at (eval 252) line 262, line 2. # at (eval 252) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10209b5b0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020a6d28)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a16e0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x1018d8f80), "lspace", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1018d8f80), Path::Class::File=HASH(0x101744050), IO::File=GLOB(0x10154dda0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1018d8f80)) called at (eval 249) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1018d8f80)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1018d8f80)) called at (eval 248) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1018d8f80)) called at (eval 247) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Change=HASH(0x101959a80)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 152 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101959a80)) called at (eval 246) line 22 # App::Sqitch::Plan::Change::old_info(App::Sqitch::Plan::Change=HASH(0x101959a80)) called at t/change.t line 155 # # ---------- # Previous test 38 'Change ID should be correct' # Useless use of array element in void context at (eval 262) line 43, line 3. # at (eval 262) line 43, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1020851c8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10174ab98)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10174ab98)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x1018229d0)) called at t/change.t line 193 # main::dep("foo") called at t/change.t line 199 # # ---------- # Previous test 38 'Change ID should be correct' # Useless use of array element in void context at (eval 263) line 57, line 3. # at (eval 263) line 57, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102062c58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10205aa10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101599190)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "foo", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x102067008), "project", "change", ...) called at t/change.t line 193 # main::dep("foo") called at t/change.t line 199 # # ---------- # Previous test 38 'Change ID should be correct' # Useless use of array element in void context at (eval 263) line 206, line 3. # at (eval 263) line 206, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102062c58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10205aa10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101599190)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "foo", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x102067008), "project", "change", ...) called at t/change.t line 193 # main::dep("foo") called at t/change.t line 199 # # ---------- # Previous test 38 'Change ID should be correct' # Useless use of array element in void context at (eval 263) line 278, line 3. # at (eval 263) line 278, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102062c58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10205aa10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101599190)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "foo", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x102067008), "project", "change", ...) called at t/change.t line 193 # main::dep("foo") called at t/change.t line 199 # # ---------- # Previous test 38 'Change ID should be correct' # Useless use of array element in void context at (eval 263) line 314, line 3. # at (eval 263) line 314, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102062c58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10205aa10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101599190)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "foo", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x102067008), "project", "change", ...) called at t/change.t line 193 # main::dep("foo") called at t/change.t line 199 # # ---------- # Previous test 38 'Change ID should be correct' # Useless use of array element in void context at (eval 263) line 350, line 3. # at (eval 263) line 350, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102062c58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10205aa10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101599190)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "foo", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x102067008), "project", "change", ...) called at t/change.t line 193 # main::dep("foo") called at t/change.t line 199 # # ---------- # Previous test 38 'Change ID should be correct' # Useless use of array element in void context at (eval 263) line 386, line 3. # at (eval 263) line 386, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102062c58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10205aa10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101599190)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "change", "foo", "conflicts", 0, "plan", App::Sqitch::Plan=HASH(0x102067008), "project", "change", ...) called at t/change.t line 193 # main::dep("foo") called at t/change.t line 199 # # ---------- # Previous test 39 'Create change with more stuff' # Useless use of array element in void context at (eval 264) line 43, line 3. # at (eval 264) line 43, line 3. # eval '{ # my $default_for_project = ${$_[1]->{"\\$default_for_project"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::project { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "project is a read-only accessor" if @_ > 1; # exists $_[0]->{"project"} ? # $_[0]->{"project"} # : do { # my $value = $default_for_project->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"project"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::project # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_project = \${\$_[1]->{\"\\\$default_for_projec"..., HASH(0x102056198)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1015bc2a0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015bc2a0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::project(App::Sqitch::Plan::Depend=HASH(0x10205a7e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Depend.pm line 167 # App::Sqitch::Plan::Depend::as_string(App::Sqitch::Plan::Depend=HASH(0x10205a7e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Depend.pm line 174 # App::Sqitch::Plan::Depend::as_plan_string(App::Sqitch::Plan::Depend=HASH(0x10205a7e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 242 # App::Sqitch::Plan::Change::format_dependencies(App::Sqitch::Plan::Change=HASH(0x1020404d0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 282 # App::Sqitch::Plan::Change::format_content(App::Sqitch::Plan::Change=HASH(0x1020404d0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Line.pm line 153 # App::Sqitch::Plan::Line::as_string(App::Sqitch::Plan::Change=HASH(0x1020404d0)) called at t/change.t line 219 # # ---------- # Previous test 75 'Dependencies should include requires and conflicts' # Useless use of array element in void context at (eval 285) line 43, line 1. # at (eval 285) line 43, line 1. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x10203fea0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10154d1d0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10154d1d0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x102000918)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 586 # App::Sqitch::Plan::find(App::Sqitch::Plan=HASH(0x102000918), "hey") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 293 # App::Sqitch::Plan::Change::requires_changes(App::Sqitch::Plan::Change=HASH(0x101ffb608)) called at t/change.t line 350 # # Looks like you failed 1 test of 85. t/change.t .......... 1..85 ok 1 - require App::Sqitch::Plan::Change; ok 2 - App::Sqitch::Plan::Change->can(...) ok 3 - An object of class 'App::Sqitch::Plan::Change' isa 'App::Sqitch::Plan::Change' ok 4 - An object of class 'App::Sqitch::Plan::Change' isa 'App::Sqitch::Plan::Line' ok 5 - It should be a deploy change ok 6 - It should not be a revert change ok 7 - And it should say so ok 8 - 'Timestamp' isa 'App::Sqitch::DateTime' ok 9 - path_segments should have the file name ok 10 - The deploy file should be correct ok 11 - The revert file should be correct ok 12 - The verify file should be correct ok 13 - The change should not be reworked ok 14 - path_segments should not include suffix ok 15 - Add a rework tag ok 16 - Reworked tag should be stored ok 17 - The change should be reworked ok 18 - path_segments should now include suffix ok 19 - The change should not be reworked ok 20 - Add two rework tags ok 21 - The change should again be reworked ok 22 - path_segments should now include the correct suffixc ok 23 - Name should format as "foo" ok 24 - Name should format with tags as "foo" ok 25 - Dependencies should format as "" ok 26 - Name should format with dependencies as "foo" ok 27 - Name should format op without dependencies as "foo" ok 28 - Change content should format correctly without dependencies ok 29 - Planner name shoudld default to user name ok 30 - Planner email shoudld default to user email ok 31 - Planner name and email should format properly ok 32 - should stringify to "foo" + planner ok 33 - Since tag should be undef ok 34 - Parent should be undef ok 35 - Old change info should be correct ok 36 - Old change ID should be correct ok 37 - Change info should be correct ok 38 - Change ID should be correct ok 39 - Create change with more stuff ok 40 - It should stringify correctly ok 41 - It should not be a deploy change ok 42 - It should be a revert change ok 43 - It should say so ok 44 - It should have a since tag ok 45 - It should have a parent ok 46 - Old info should not since tag ok 47 - Info should include parent and dependencies ok 48 - Should have no tags ok 49 - Add a tag ok 50 - Should have the tag ok 51 - Should format name with tags ok 52 - Add another tag ok 53 - Should have both tags ok 54 - Should format name with both tags ok 55 - Planner name and email should format properly ok 56 - Dependencies should format as "[foo bar @baz !dr_evil]" ok 57 - Name should format with dependencies as "yo/howdy [foo bar @baz !dr_evil]" ok 58 - Name should format op with dependencies as "yo/howdy [foo bar @baz !dr_evil]" ok 59 - Change content should format correctly with dependencies ok 60 - path_segments should include directories ok 61 - The deploy file should include the suffix ok 62 - The revert file should include the suffix ok 63 - The verify file should include the suffix ok 64 - Create change "baz" ok 65 - Create change "bar" ok 66 - Get deploy handle ok 67 - It should be the deploy file ok 68 - Get revert handle ok 69 - It should be the revert file ok 70 - Get verify handle ok 71 - It should be the verify file ok 72 - Create a change with explicit requires and conflicts ok 73 - requires should be set ok 74 - conflicts should be set ok 75 - Dependencies should include requires and conflicts ok 76 - Should find changes for requires ok 77 - Should find changes for conflicts ok 78 - Create change with UTF-8 name ok 79 - The name should be decoded text in old info ok 80 - Old change ID should be hashed from encoded UTF-8 ok 81 - The name should be decoded text in info ok 82 - Change ID should be hashed from encoded UTF-8 ok 83 - note_prompt() should work ok 84 - note_prompt() should work not ok 85 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/85 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 40 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x100bee198)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x100bee0c0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x100bee000)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100eb9778), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x100f80e40)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x1011e1e28)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x1013df230)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Plan", "class", "App::Sqitch::Plan") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x1011a7728)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x1013e8228)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Change", "class", "App::Sqitch::Plan::Change") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x1011eca78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x1013f3448)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "ChangeList", "class", "App::Sqitch::Plan::ChangeList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x1011eca18)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x1013fa758)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "LineList", "class", "App::Sqitch::Plan::LineList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x1011f5628)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x101400b10)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Tag", "class", "App::Sqitch::Plan::Tag") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x1011f5688)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x10140b4c8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Depend", "class", "App::Sqitch::Plan::Depend") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x1013c2378)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x1014133a0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DateTime", "class", "App::Sqitch::DateTime") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x1013e7f10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x10141ab08)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x1013f1d10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x1014263d8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Config", "class", "App::Sqitch::Config") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x1011e2338)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x10142ceb8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "File", "class", "Path::Class::File") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x1013fa470)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x1014352b0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Dir", "class", "Path::Class::Dir") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x10140b1f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny::Class=HASH(0x10143cc18)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x1014130d0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny=HASH(0x101444380)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x100eb9778), "constraint", CODE(0x1013b68b8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny=HASH(0x10144cd60)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x100eb9778), "constraint", CODE(0x1013b6ab0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny=HASH(0x1014579c8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x1013b6c78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101206880), Type::Tiny=HASH(0x10145bb40)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x100eb4f48)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at /export/home/fly1464/var/megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x10156bf50), ARRAY(0x10153ccb0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/changelist.t line 12 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 196) line 77. # at (eval 196) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010c0608)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017ed4e0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100464540)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "_engine", "sqlite", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/changelist.t line 23 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 196) line 438. # at (eval 196) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010c0608)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017ed4e0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100464540)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "_engine", "sqlite", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/changelist.t line 23 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 196) line 515. # at (eval 196) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010c0608)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017ed4e0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100464540)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "_engine", "sqlite", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/changelist.t line 23 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 197) line 71. # at (eval 197) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1002bd060)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002bcc10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101568728)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002bc2e0)) called at t/changelist.t line 24 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 197) line 107. # at (eval 197) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1002bd060)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002bcc10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101568728)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002bc2e0)) called at t/changelist.t line 24 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 197) line 256. # at (eval 197) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1002bd060)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002bcc10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101568728)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002bc2e0)) called at t/changelist.t line 24 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 198) line 597. # at (eval 198) line 597. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101867e28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d2a48)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101617930)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "name", "foo") called at t/changelist.t line 26 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 198) line 633. # at (eval 198) line 633. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101867e28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d2a48)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101617930)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "name", "foo") called at t/changelist.t line 26 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 198) line 906. # at (eval 198) line 906. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101867e28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018d2a48)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101617930)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "name", "foo") called at t/changelist.t line 26 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 207) line 43. # at (eval 207) line 43. # eval '{ # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_sysuser = \${\$_[1]->{\"\\\$default_for_sysuse"..., HASH(0x10191e638)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10177d1f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10177d1f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x1002bc2e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002bc2e0)) called at (eval 201) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x1002bc2e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101820038)) called at (eval 198) line 649 # App::Sqitch::Plan::Change::new(undef, "plan", App::Sqitch::Plan=HASH(0x1018671c8), "name", "foo") called at t/changelist.t line 26 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 220) line 61. # at (eval 220) line 61. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019c4958)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1c780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a2990)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "change", App::Sqitch::Plan::Change=HASH(0x10177d430), "name", "alpha") called at t/changelist.t line 32 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 220) line 441. # at (eval 220) line 441. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019c4958)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1c780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a2990)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "change", App::Sqitch::Plan::Change=HASH(0x10177d430), "name", "alpha") called at t/changelist.t line 32 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 220) line 637. # at (eval 220) line 637. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019c4958)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1c780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a2990)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "change", App::Sqitch::Plan::Change=HASH(0x10177d430), "name", "alpha") called at t/changelist.t line 32 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of hash element in void context at (eval 220) line 74. # at (eval 220) line 74. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019c4958)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1c780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a2990)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "change", App::Sqitch::Plan::Change=HASH(0x10177d430), "name", "alpha") called at t/changelist.t line 32 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of hash element in void context at (eval 220) line 454. # at (eval 220) line 454. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019c4958)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1c780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a2990)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "change", App::Sqitch::Plan::Change=HASH(0x10177d430), "name", "alpha") called at t/changelist.t line 32 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 230) line 298, line 1. # at (eval 230) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019f5378)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020411d8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016546d8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1018671c8), Path::Class::File=HASH(0x10176e280), IO::File=GLOB(0x10176e430)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1018671c8)) called at (eval 226) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1018671c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1018671c8)) called at (eval 225) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1018671c8)) called at (eval 224) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Change=HASH(0x101820038)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 119 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101820038)) called at (eval 223) line 22 # App::Sqitch::Plan::Change::info(App::Sqitch::Plan::Change=HASH(0x101820038)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 138 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101820038)) called at (eval 222) line 22 # App::Sqitch::Plan::Change::id(App::Sqitch::Plan::Change=HASH(0x101820038)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 189 # App::Sqitch::Plan::ChangeList::append(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), App::Sqitch::Plan::Change=HASH(0x101820038), App::Sqitch::Plan::Change=HASH(0x1019f6a08), App::Sqitch::Plan::Change=HASH(0x10177d430), App::Sqitch::Plan::Change=HASH(0x101867258), App::Sqitch::Plan::Change=HASH(0x101e64d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 19 # App::Sqitch::Plan::ChangeList::new("App::Sqitch::Plan::ChangeList", App::Sqitch::Plan::Change=HASH(0x101820038), App::Sqitch::Plan::Change=HASH(0x1019f6a08), App::Sqitch::Plan::Change=HASH(0x10177d430), App::Sqitch::Plan::Change=HASH(0x101867258), App::Sqitch::Plan::Change=HASH(0x101e64d88)) called at t/changelist.t line 38 # # ---------- # Previous test 1 'require App::Sqitch::Plan::ChangeList;' # Useless use of array element in void context at (eval 231) line 262, line 2. # at (eval 231) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102035790)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020414f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015c9a78)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x1018671c8), "lspace", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1018671c8), Path::Class::File=HASH(0x10176e280), IO::File=GLOB(0x10176e430)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1018671c8)) called at (eval 226) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1018671c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1018671c8)) called at (eval 225) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1018671c8)) called at (eval 224) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Change=HASH(0x101820038)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 119 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101820038)) called at (eval 223) line 22 # App::Sqitch::Plan::Change::info(App::Sqitch::Plan::Change=HASH(0x101820038)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 138 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101820038)) called at (eval 222) line 22 # App::Sqitch::Plan::Change::id(App::Sqitch::Plan::Change=HASH(0x101820038)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 189 # App::Sqitch::Plan::ChangeList::append(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), App::Sqitch::Plan::Change=HASH(0x101820038), App::Sqitch::Plan::Change=HASH(0x1019f6a08), App::Sqitch::Plan::Change=HASH(0x10177d430), App::Sqitch::Plan::Change=HASH(0x101867258), App::Sqitch::Plan::Change=HASH(0x101e64d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 19 # App::Sqitch::Plan::ChangeList::new("App::Sqitch::Plan::ChangeList", App::Sqitch::Plan::Change=HASH(0x101820038), App::Sqitch::Plan::Change=HASH(0x1019f6a08), App::Sqitch::Plan::Change=HASH(0x10177d430), App::Sqitch::Plan::Change=HASH(0x101867258), App::Sqitch::Plan::Change=HASH(0x101e64d88)) called at t/changelist.t line 38 # # ---------- # Previous test 38 'Should find baz by old ID^ at 2' # Useless use of array element in void context at (eval 278) line 379, line 8. # at (eval 278) line 379, line 8. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x102019c70)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102492fb0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102229e00)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x10217a8b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10217a8b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1002bc2e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 57 # App::Sqitch::Plan::ChangeList::_lookup(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 92 # App::Sqitch::Plan::ChangeList::_index_of(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 81 # App::Sqitch::Plan::ChangeList::index_of(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at t/changelist.t line 103 # # ---------- # Previous test 38 'Should find baz by old ID^ at 2' # Useless use of array element in void context at (eval 278) line 456, line 8. # at (eval 278) line 456, line 8. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x102019c70)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102492fb0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102229e00)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x10217a8b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10217a8b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1002bc2e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 57 # App::Sqitch::Plan::ChangeList::_lookup(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 92 # App::Sqitch::Plan::ChangeList::_index_of(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 81 # App::Sqitch::Plan::ChangeList::index_of(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at t/changelist.t line 103 # # ---------- # Previous test 38 'Should find baz by old ID^ at 2' # Useless use of array element in void context at (eval 278) line 528, line 8. # at (eval 278) line 528, line 8. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x102019c70)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102492fb0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102229e00)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x10217a8b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10217a8b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1002bc2e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 57 # App::Sqitch::Plan::ChangeList::_lookup(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 92 # App::Sqitch::Plan::ChangeList::_index_of(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 81 # App::Sqitch::Plan::ChangeList::index_of(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at t/changelist.t line 103 # # ---------- # Previous test 38 'Should find baz by old ID^ at 2' # Useless use of array element in void context at (eval 282) line 43, line 8. # at (eval 282) line 43, line 8. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1024b8808)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101774e38)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101774e38)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x1002bc2e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x1013b6d98)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x10217aaa8), HASH(0x10217aa60)) called at (eval 278) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x10217a8b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10217a8b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x1002bc2e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 57 # App::Sqitch::Plan::ChangeList::_lookup(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 92 # App::Sqitch::Plan::ChangeList::_index_of(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/ChangeList.pm line 81 # App::Sqitch::Plan::ChangeList::index_of(App::Sqitch::Plan::ChangeList=HASH(0x10162e5a8), "\@FIRST") called at t/changelist.t line 103 # # Looks like you failed 1 test of 351. t/changelist.t ...... 1..351 ok 1 - require App::Sqitch::Plan::ChangeList; ok 2 - Count should be six ok 3 - Changes should be in order ok 4 - Items should be the same as changes ok 5 - Tags should return the one tag ok 6 - Should have foo at 0 ok 7 - Should have bar at 1 ok 8 - Should have yo1 at 2 ok 9 - Should have baz at 4 ok 10 - Should have yo2 at 5 ok 11 - Should not find "non" ok 12 - Should not find "@non" ok 13 - Should find foo at 0 ok 14 - Should find foo by ID at 0 ok 15 - Should find foo by old ID at 0 ok 16 - Should find bar at 1 ok 17 - Should find bar^ at 0 ok 18 - Should find bar~ at 2 ok 19 - Should find bar~~ at 3 ok 20 - Should not find bar~~~ ok 21 - Should find bar~2 at 3 ok 22 - Should find bar~3 at 4 ok 23 - Should find bar by ID at 1 ok 24 - Should find bar by old ID at 1 ok 25 - Should find @alpha at 2 ok 26 - Should find @alpha^ at 1 ok 27 - Should find @alpha^^ at 1 ok 28 - Should not find @alpha^^^ ok 29 - Should find @alpha by ID at 2 ok 30 - Should find @alpha by old ID at 2 ok 31 - Should find baz at 3 ok 32 - Should find baz by ID at 3 ok 33 - Should find baz by old ID at 3 ok 34 - Should not find baz^^^ ok 35 - Should not find baz^3 at 0 ok 36 - Should not find baz^4 ok 37 - Should find baz by ID^ at 2 ok 38 - Should find baz by old ID^ at 2 ok 39 - Should find @FIRST at 1 ok 40 - Should have no offset for @FIRST ok 41 - Should find undef for @FIRST^ ok 42 - Offset should not be set ok 43 - Should find @FIRST~ at 2 ok 44 - Should have offset 1 for @FIRST~ ok 45 - Should find @FIRST~~ at 3 ok 46 - Should have offset 2 for @FIRST~ ok 47 - Should not find @FIRST~~~ ok 48 - Offset should not be set ok 49 - Should find @FIRST~2 at 3 ok 50 - Should have offset 2 for @FIRST~2 ok 51 - Should find @FIRST~3 at 4 ok 52 - Should have offset 3 for @FIRST~3 ok 53 - Should find @FIRST at 1 ok 54 - Should have no offset for @FIRST ok 55 - Should find undef for @FIRST^ ok 56 - Offset should not be set ok 57 - Should find @FIRST~ at 2 ok 58 - Should have offset 1 for @FIRST~ ok 59 - Should find @FIRST~~ at 3 ok 60 - Should have offset 2 for @FIRST~ ok 61 - Should not find @FIRST~~~ ok 62 - Offset should not be set ok 63 - Should find @FIRST~2 at 3 ok 64 - Should have offset 2 for @FIRST~2 ok 65 - Should find @FIRST~3 at 4 ok 66 - Should have offset 3 for @FIRST~3 ok 67 - Should get bar for @FIRST ok 68 - Should have no offset for @FIRST ok 69 - Should get nothing for @FIRST^ ok 70 - Offset should not be set ok 71 - Should get yo1 for @FIRST~ ok 72 - Should have offset 1 for @FIRST~ ok 73 - Should contain @FIRST ok 74 - Should find bar for @FIRST ok 75 - Should have no offset for @FIRST ok 76 - Should not contain @FIRST^ ok 77 - Should find nothing for @FIRST^ ok 78 - Offset should not be set ok 79 - Should contain @FIRST~ ok 80 - Should find yo1 for @FIRST~ ok 81 - Should have offset 1 for @FIRST~ ok 82 - Should find @LAST at 2 ok 83 - Should have offset 0 for @LAST ok 84 - Should find @LAST^ at 1 ok 85 - Should have offset 1 for @LAST^ ok 86 - Should find @LAST^^ at 1 ok 87 - Should have offset 2 for @LAST^^ ok 88 - Should not find @LAST^^^ ok 89 - Offset should not be set ok 90 - Should find @LAST at 2 ok 91 - Should have offset 0 for @LAST ok 92 - Should find @LAST^ at 1 ok 93 - Should have offset 1 for @LAST^ ok 94 - Should find @LAST^^ at 1 ok 95 - Should have offset 2 for @LAST^^ ok 96 - Should not find @LAST^^^ ok 97 - Offset should not be set ok 98 - Should get yo1 for @LAST ok 99 - Should have offset 0 for @LAST ok 100 - should get bar for @LAST^ ok 101 - Should have offset 1 for @LAST^ ok 102 - should get nothing for @LAST~ ok 103 - Offset should not be set ok 104 - Should contain @LAST ok 105 - Should find yo1 for @LAST ok 106 - Should have offset 0 for @LAST ok 107 - Should contain @LAST^ ok 108 - should find bar for @LAST^ ok 109 - Should have offset 1 for @LAST^ ok 110 - Should not contain @LAST~ ok 111 - should find nothing for @LAST~ ok 112 - Offset should not be set ok 113 - Should get multiple indexes error looking for index of "yo" ok 114 - Multiple indexes error ident should be "plan" ok 115 - Multiple indexes message should be correct ok 116 - Should unknown tag error for invalid tag ok 117 - Unknown tag error ident should be "plan" ok 118 - Unknown taf message should be correct ok 119 - Should get 2 for yo@alpha ok 120 - Should get 1 for yo@alpha^ ok 121 - Should get 4 for yo@HEAD ok 122 - Should get 3 for yo@HEAD^ ok 123 - Should get undef for yo@HEAD~ ok 124 - Should get undef for yo@HEAD~~ ok 125 - Should get 0 for foo@alpha ok 126 - Should get 0 for foo@HEAD ok 127 - Should get 0 for foo@ROOT ok 128 - Should get undef for baz@alpha ok 129 - Should get 3 for baz@HEAD ok 130 - Should get 4 for @HEAD ok 131 - Should get 0 for @ROOT ok 132 - Should get 3 for @HEAD^ ok 133 - Should get undef for @HEAD~ ok 134 - Should get 1 for @ROOT~ ok 135 - Should get undef for @ROOT^ ok 136 - Should get 4 for HEAD ok 137 - Should get 0 for ROOT ok 138 - Should get 3 for HEAD^ ok 139 - Should get undef for HEAD~ ok 140 - Should get 1 for ROOT~ ok 141 - Should get undef for ROOT^ ok 142 - Should get foo for "foo" ok 143 - Should get bar for "foo~" ok 144 - Should get foo by ID ok 145 - Should get foo by old ID ok 146 - Should get bar for "bar" ok 147 - Should get foo for "bar^" ok 148 - Should get yo1 for "bar~" ok 149 - Should get baz for "bar~~" ok 150 - Should get yo2 for "bar~3" ok 151 - Should get bar by ID ok 152 - Should get bar by old ID ok 153 - Should get "yo" by the @alpha tag ID ok 154 - Should get "yo" by the @alpha tag old ID ok 155 - Should get baz for "baz" ok 156 - Should get baz by ID ok 157 - Should get baz by old ID ok 158 - Should get baz for "@HEAD^" ok 159 - Should get yo1 for "@HEAD^^" ok 160 - Should get bar for "@HEAD^3" ok 161 - Should get foo for "@ROOT" ok 162 - Should get baz for "HEAD^" ok 163 - Should get yo1 for "HEAD^^" ok 164 - Should get bar for "HEAD^3" ok 165 - Should get foo for "ROOT" ok 166 - Should get yo1 for yo@alpha ok 167 - Should get yo2 for yo@HEAD ok 168 - Should get foo for foo@alpha ok 169 - Should get foo for foo@HEAD ok 170 - Should get undef for baz@alpha ok 171 - Should get baz for baz@HEAD ok 172 - Should get yo2 for "yo@HEAD" ok 173 - Should get foo for "foo@ROOT" ok 174 - Should find yo1 with "yo" ok 175 - Should find yo1 with "yo@alpha" ok 176 - Should find yo2 with yo@HEAD ok 177 - Should find foo for "foo" ok 178 - Should find foo for "foo@alpha" ok 179 - Should find foo for "foo@HEAD" ok 180 - Should find bar with "yo^" ok 181 - Should find foo with "yo^^" ok 182 - Should find foo with "yo^2" ok 183 - Should find baz with "yo~" ok 184 - Should find yo2 with "yo~~" ok 185 - Should find yo2 with "yo~2" ok 186 - Should find bar with "yo@alpha^" ok 187 - Should find baz with "yo@alpha^" ok 188 - Should find baz with yo@HEAD^ ok 189 - Should find baz with @HEAD^ ok 190 - Should find bar with @ROOT~^ ok 191 - Should find baz with HEAD^ ok 192 - Should find bar with ROOT~^ ok 193 - Should contain yo1 with "yo" ok 194 - Should contain yo1 with "yo@alpha" ok 195 - Should contain yo2 with yo@HEAD ok 196 - Should contain foo for "foo" ok 197 - Should contain foo for "foo@alpha" ok 198 - Should contain foo for "foo@HEAD" ok 199 - Should contain bar with "yo^" ok 200 - Should contain foo with "yo^^" ok 201 - Should contain foo with "yo^2" ok 202 - Should contain baz with "yo~" ok 203 - Should contain yo2 with "yo~~" ok 204 - Should contain yo2 with "yo~2" ok 205 - Should contain bar with "yo@alpha^" ok 206 - Should contain baz with "yo@alpha^" ok 207 - Should contain baz with yo@HEAD^ ok 208 - Should contain baz with @HEAD^ ok 209 - Should contain bar with @ROOT~^ ok 210 - Should contain baz with HEAD^ ok 211 - Should contain bar with ROOT~^ ok 212 - Should get multiple indexes error looking for index of "yo" ok 213 - Multiple indexes error ident should be "plan" ok 214 - Multiple indexes message should be correct ok 215 - Should unknown tag error for invalid tag ok 216 - Unknown tag error ident should be "plan" ok 217 - Unknown taf message should be correct ok 218 - Push hi ok 219 - Count should now be six ok 220 - Changes should be in order with $hi at the end ok 221 - Should find "hi" at index 5 ok 222 - Should find "hi" by ID at index 5 ok 223 - Should find "hi" by old ID at index 5 ok 224 - Index of @ROOT should still be 0 ok 225 - Index of @HEAD should now be 5 ok 226 - Index of ROOT should still be 0 ok 227 - Index of HEAD should now be 5 ok 228 - First index of "non" should be undef ok 229 - First index of "foo" should be 0 ok 230 - First index of "foo~" should be 1 ok 231 - First index of "foo~~" should be 2 ok 232 - First index of "foo~3" should be 3 ok 233 - Should not find first index of "foo~~~" ok 234 - First index of "foo" since @ROOT should be undef ok 235 - First index of "bar" should be 1 ok 236 - First index of "yo" should be 2 ok 237 - First index of "yo" since @ROOT should be 2 ok 238 - First index of "baz" should be 3 ok 239 - First index of "baz^" should be 2 ok 240 - First index of "baz^^" should be 1 ok 241 - First index of "baz^3" should be 0 ok 242 - Should not find first index of "baz^^^" ok 243 - First index of "yo" since "@alpha" should be 4 ok 244 - First index of "yo" since "baz" should be 4 ok 245 - First index of "yo^" since "baz" should be 4 ok 246 - First index of "yo~" since "baz" should be 5 ok 247 - Should get an exception for an unknown change passed to first_index_of() ok 248 - Unknown change error ident should be "plan" ok 249 - Unknown change message should be correct ok 250 - Push so and fu ok 251 - Count should now be eight ok 252 - Index of @ROOT should remain 0 ok 253 - Index of @HEAD should now be 7 ok 254 - Index of ROOT should remain 0 ok 255 - Index of HEAD should now be 7 ok 256 - Changes should be in order with $so and $fu at the end ok 257 - Index beta ok 258 - Should find @beta at index 4 ok 259 - Should find yo2 via @beta ok 260 - Should find yo2 via @beta ID ok 261 - Should find yo2 via @beta old ID ok 262 - Tags should return both tags ok 263 - Should get 2 for last tagged index ok 264 - Should find "yo" as last tagged ok 265 - Should get 8 for count ok 266 - Should find fu as last change ok 267 - Should find last tagged index at 0 ok 268 - Should find last tagged at 0 ok 269 - Should get count 1 ok 270 - Should find last change at 0 ok 271 - Should find last tagged index at 1 ok 272 - Should find last tagged at 1 ok 273 - Should get count 2 ok 274 - Should find last change at 1 ok 275 - Should find last tagged index at 3 ok 276 - Should find last tagged at 3 ok 277 - Should get count 4 ok 278 - Should find last change at 3 ok 279 - Should find last tagged index at 4 ok 280 - Should find last tagged at 4 ok 281 - Should get count 5 ok 282 - Should find last change at 4 ok 283 - Should not find tag index in 0 changes ok 284 - Should not find tag in 0 changes ok 285 - Should find no change in empty plan ok 286 - Should not find tag index in 2 changes ok 287 - Should not find tag in 2 changes ok 288 - Should not find tag index in 4 changes ok 289 - Should not find tag in 4 changes ok 290 - An object of class 'App::Sqitch::Plan::ChangeList' isa 'App::Sqitch::Plan::ChangeList' ok 291 - Should not find index of "foo" in empty list ok 292 - Should not find first index of "foo" in empty list ok 293 - Should get undef for "foo" in empty list ok 294 - Should not contain "foo" in empty list ok 295 - Should find undef for "foo" in empty list ok 296 - Should not find index of "bar" in empty list ok 297 - Should not find first index of "bar" in empty list ok 298 - Should get undef for "bar" in empty list ok 299 - Should not contain "bar" in empty list ok 300 - Should find undef for "bar" in empty list ok 301 - Should not find index of "HEAD" in empty list ok 302 - Should not find first index of "HEAD" in empty list ok 303 - Should get undef for "HEAD" in empty list ok 304 - Should not contain "HEAD" in empty list ok 305 - Should find undef for "HEAD" in empty list ok 306 - Should not find index of "@HEAD" in empty list ok 307 - Should not find first index of "@HEAD" in empty list ok 308 - Should get undef for "@HEAD" in empty list ok 309 - Should not contain "@HEAD" in empty list ok 310 - Should find undef for "@HEAD" in empty list ok 311 - Should not find index of "ROOT" in empty list ok 312 - Should not find first index of "ROOT" in empty list ok 313 - Should get undef for "ROOT" in empty list ok 314 - Should not contain "ROOT" in empty list ok 315 - Should find undef for "ROOT" in empty list ok 316 - Should not find index of "@ROOT" in empty list ok 317 - Should not find first index of "@ROOT" in empty list ok 318 - Should get undef for "@ROOT" in empty list ok 319 - Should not contain "@ROOT" in empty list ok 320 - Should find undef for "@ROOT" in empty list ok 321 - Should not find index of "alpha" in empty list ok 322 - Should not find first index of "alpha" in empty list ok 323 - Should get undef for "alpha" in empty list ok 324 - Should not contain "alpha" in empty list ok 325 - Should find undef for "alpha" in empty list ok 326 - Should not find index of "@alpha" in empty list ok 327 - Should not find first index of "@alpha" in empty list ok 328 - Should get undef for "@alpha" in empty list ok 329 - Should not contain "@alpha" in empty list ok 330 - Should find undef for "@alpha" in empty list ok 331 - Should not find index of "FIRST" in empty list ok 332 - Should not find first index of "FIRST" in empty list ok 333 - Should get undef for "FIRST" in empty list ok 334 - Should not contain "FIRST" in empty list ok 335 - Should find undef for "FIRST" in empty list ok 336 - Should not find index of "@FIRST" in empty list ok 337 - Should not find first index of "@FIRST" in empty list ok 338 - Should get undef for "@FIRST" in empty list ok 339 - Should not contain "@FIRST" in empty list ok 340 - Should find undef for "@FIRST" in empty list ok 341 - Should not find index of "LAST" in empty list ok 342 - Should not find first index of "LAST" in empty list ok 343 - Should get undef for "LAST" in empty list ok 344 - Should not contain "LAST" in empty list ok 345 - Should find undef for "LAST" in empty list ok 346 - Should not find index of "@LAST" in empty list ok 347 - Should not find first index of "@LAST" in empty list ok 348 - Should get undef for "@LAST" in empty list ok 349 - Should not contain "@LAST" in empty list ok 350 - Should find undef for "@LAST" in empty list not ok 351 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/351 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Subroutine configure redefined at (eval 205) line 2. Useless use of array element in void context at (eval 206) line 77. Useless use of array element in void context at (eval 206) line 438. Useless use of array element in void context at (eval 206) line 515. Useless use of array element in void context at (eval 212) line 332. Useless use of array element in void context at (eval 219) line 43. Useless use of array element in void context at (eval 220) line 71. Useless use of array element in void context at (eval 220) line 107. Useless use of array element in void context at (eval 220) line 256. Useless use of array element in void context at (eval 221) line 43. Useless use of array element in void context at (eval 225) line 298, line 1. Useless use of array element in void context at (eval 226) line 262, line 2. Useless use of array element in void context at (eval 237) line 597, line 3. Useless use of array element in void context at (eval 237) line 633, line 3. Useless use of array element in void context at (eval 237) line 906, line 3. Useless use of hash element in void context at (eval 237) line 646, line 3. Useless use of array element in void context at (eval 238) line 61, line 5. Useless use of array element in void context at (eval 238) line 441, line 5. Useless use of array element in void context at (eval 238) line 637, line 5. Useless use of array element in void context at (eval 263) line 189. Useless use of array element in void context at (eval 263) line 379. Useless use of array element in void context at (eval 263) line 456. Useless use of array element in void context at (eval 263) line 492. Useless use of array element in void context at (eval 263) line 528. Useless use of array element in void context at (eval 281) line 40. Useless use of array element in void context at (eval 281) line 79. t/checkout.t ........ ok 1 - require App::Sqitch::Command::checkout; ok 2 - The class (or class-like) 'App::Sqitch::Command::checkout' isa 'App::Sqitch::Command' ok 3 - App::Sqitch::Command::checkout->can(...) ok 4 - Options should be correct ok 5 - Load a sqitch object ok 6 - Check default configuration ok 7 - Should have set option ok 8 - Should have mode, deploy_variables, verify, no_prompt, and log_only ok 9 - Should have set_revert option and no_prompt false ok 10 - set_deploy and set_revert should overrid set ok 11 - set_deploy and set_revert should merge with set ok 12 - set_revert should merge with set_deploy ok 13 - Should have deploy configuration ok 14 - Should have merged variables ok 15 - Should have merged --set, deploy, checkout ok 16 - An object of class 'App::Sqitch::Command::checkout' isa 'App::Sqitch::Command::checkout' ok 17 - Should pick up deploy variables from configuration ok 18 - Should pick up revert variables from configuration ok 19 - Should have no_prompt and prompt_accept from revert config ok 20 - Should have false log_only, verify, true prompt_accept from checkout config ok 21 - Should have log_only, prompt_accept true from checkout and verify from deploy ok 22 - Should have log_only false and mode all again ok 23 - Should have log_only false for false config ok 24 - Should have no_prompt true with -y ok 25 - 'checkout command' isa 'App::Sqitch::Command::checkout' ok 26 - Should get an error current branch ok 27 - Current branch error ident should be "checkout" ok 28 - Should get proper error for current branch error ok 29 - The proper args should have been passed to rev-parse ok 30 - Should get an error for plans without a common change ok 31 - The no common change error ident should be "checkout" ok 32 - The no common change error message should be correct ok 33 - 'Object with to and variables' isa 'App::Sqitch::Command::checkout' ok 34 - Checkout master ok 35 - The proper args should again have been passed to rev-parse ok 36 - Should have requested the plan file contents as of master ok 37 - Should have checked out other branch ok 38 - Should have no warnings ok 39 - Should have emitted info identifying the last common change ok 40 - "users" ID and 1 should be passed to the engine revert ok 41 - Should have had the current changes for revision ok 42 - undef, "tag", and 1 should be passed to the engine deploy ok 43 - Should have had the other branch changes (decoded) for deploy ok 44 - Engine should verify ok 45 - The engine should be set to log_only ok 46 - Variables should have been passed to the engine twice ok 47 - The revert vars should have been passed first ok 48 - The deploy vars should have been next ok 49 - Checkout master with target ok 50 - Target should be passed to engine ok 51 - Should have no warnings ok 52 - 'Object with to and variables' isa 'App::Sqitch::Command::checkout' ok 53 - Checkout master again ok 54 - Target should be passed to engine ok 55 - Should have no warnings ok 56 - The engine should not be set to log_only ok 57 - The engine should not be set with_verfy ok 58 - undef, "tag", and 1 should be passed to the engine deploy again ok 59 - Should have had the other branch changes (decoded) for deploy again ok 60 - Variables should again have been passed to the engine twice ok 61 - The revert vars should again have been passed first ok 62 - The deploy vars should again have been next ok 63 - Checkout master again with target ok 64 - Target should be passed to engine ok 65 - Should have warning about two targets ok 66 - Should get an exception for unknown arg ok 67 - Unknow arg ident should be "checkout" ok 68 - Should get an exeption for two unknown arg ok 69 - Should get an exception for unknown args ok 70 - Unknow args ident should be "checkout" ok 71 - Should get an exeption for two unknown args ok 72 - Should rethrow confirm exception ok 73 - Should rethrow fatal exception ok 74 - Should rethrow unknown exception 1..74 ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 24 warning(s) # Previous test 2 'App::Sqitch::Command->can(...)' # Useless use of array element in void context at (eval 208) line 77. # at (eval 208) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101054350)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017d94b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004697c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/command.t line 66 # # ---------- # Previous test 2 'App::Sqitch::Command->can(...)' # Useless use of array element in void context at (eval 208) line 438. # at (eval 208) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101054350)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017d94b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004697c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/command.t line 66 # # ---------- # Previous test 2 'App::Sqitch::Command->can(...)' # Useless use of array element in void context at (eval 208) line 515. # at (eval 208) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101054350)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017d94b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004697c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/command.t line 66 # # ---------- # Previous test 3 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 209) line 70. # at (eval 209) line 70. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::new() called at t/command.t line 70 # Test::Exception::throws_ok() called at t/command.t line 71 # # ---------- # Previous test 11 'Options keys should have dashes changed to underscores' # Useless use of array element in void context at (eval 215) line 76. # at (eval 215) line 76. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::whu::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::whu") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::whu::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"feathers"}) { # $new->{"feathers"} = $args->{"feathers"}; # } # if (exists $args->{"foo"}) { # $new->{"foo"} = $args->{"foo"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::whu::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1017b5120)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019298e8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101799e40)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::whu::new("App::Sqitch::Command::whu", HASH(0x1011a5ae8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1018b5720)) called at t/command.t line 100 # # ---------- # Previous test 32 'The "feathers" attribute should be set' # Useless use of array element in void context at (eval 240) line 70. # at (eval 240) line 70. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::wah_hoo::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::wah_hoo") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::wah_hoo::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::wah_hoo::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10195e8c0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019a3f00)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1019a38d0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::wah_hoo::new("App::Sqitch::Command::wah_hoo", HASH(0x1019a3b58)) called at (eval 209) line 25 # App::Sqitch::Command::new("App::Sqitch::Command::wah_hoo", HASH(0x1019a3b58)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x101969338)) called at t/command.t line 172 # # ---------- # Previous test 63 'Load cmd with config and plan' # Useless use of array element in void context at (eval 255) line 43. # at (eval 255) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019a9598)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a5ad8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a5ad8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x1019ce440)) called at (eval 253) line 17 # App::Sqitch::Command::plan(App::Sqitch::Command=HASH(0x1019ce6b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 182 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0)) called at t/command.t line 262 # # ---------- # Previous test 63 'Load cmd with config and plan' # Useless use of array element in void context at (eval 256) line 71. # at (eval 256) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019cc848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019e1840)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149f7f8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1019ce440)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101371f00), "sqitch", App::Sqitch=HASH(0x1019ce440)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1019ce440)) called at (eval 255) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1019ce440)) called at (eval 253) line 17 # App::Sqitch::Command::plan(App::Sqitch::Command=HASH(0x1019ce6b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 182 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0)) called at t/command.t line 262 # # ---------- # Previous test 63 'Load cmd with config and plan' # Useless use of array element in void context at (eval 256) line 107. # at (eval 256) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019cc848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019e1840)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149f7f8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1019ce440)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101371f00), "sqitch", App::Sqitch=HASH(0x1019ce440)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1019ce440)) called at (eval 255) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1019ce440)) called at (eval 253) line 17 # App::Sqitch::Command::plan(App::Sqitch::Command=HASH(0x1019ce6b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 182 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0)) called at t/command.t line 262 # # ---------- # Previous test 63 'Load cmd with config and plan' # Useless use of array element in void context at (eval 256) line 256. # at (eval 256) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019cc848)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019e1840)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149f7f8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1019ce440)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101371f00), "sqitch", App::Sqitch=HASH(0x1019ce440)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1019ce440)) called at (eval 255) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1019ce440)) called at (eval 253) line 17 # App::Sqitch::Command::plan(App::Sqitch::Command=HASH(0x1019ce6b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 182 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0)) called at t/command.t line 262 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 257) line 43. # at (eval 257) line 43. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x1019e8990)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101635a38)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101635a38)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 261) line 298, line 1. # at (eval 261) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101a6f000)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b67c20)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10157e588)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 262) line 262, line 2. # at (eval 262) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101b5d0c0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b4a958)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10151ea90)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "lspace", "", "note", "This is a note") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 273) line 597, line 6. # at (eval 273) line 597, line 6. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b45420)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b2fd70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101545ac8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "name", "hey", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x101b2fad0), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 273) line 633, line 6. # at (eval 273) line 633, line 6. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b45420)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b2fd70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101545ac8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "name", "hey", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x101b2fad0), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 273) line 906, line 6. # at (eval 273) line 906, line 6. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b45420)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b2fd70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101545ac8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "name", "hey", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x101b2fad0), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of hash element in void context at (eval 273) line 646, line 6. # at (eval 273) line 646, line 6. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b45420)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b2fd70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101545ac8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "name", "hey", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x101b2fad0), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 274) line 61, line 8. # at (eval 274) line 61, line 8. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102078ce0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101acfa98)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d4510)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "change", App::Sqitch::Plan::Change=HASH(0x1021222c8), "name", "foo", "rspace", " ", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 274) line 441, line 8. # at (eval 274) line 441, line 8. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102078ce0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101acfa98)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d4510)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "change", App::Sqitch::Plan::Change=HASH(0x1021222c8), "name", "foo", "rspace", " ", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 64 'Parsing now args should return no results' # Useless use of array element in void context at (eval 274) line 637, line 8. # at (eval 274) line 637, line 8. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102078ce0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101acfa98)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d4510)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1019e7d30), "change", App::Sqitch::Plan::Change=HASH(0x1021222c8), "name", "foo", "rspace", " ", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1019e7d30), Path::Class::File=HASH(0x1019c1af0), IO::File=GLOB(0x101a77a20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 258) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1019e7d30)) called at (eval 257) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1019e7d30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 585 # App::Sqitch::Plan::contains(App::Sqitch::Plan=HASH(0x1019e7d30), "foo") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 192 # App::Sqitch::Command::parse_args(App::Sqitch::Command=HASH(0x1019ce6b0), "foo") called at t/command.t line 264 # # ---------- # Previous test 76 'Default params should be passed to Pod::Usage' # Useless use of array element in void context at (eval 308) line 70. # at (eval 308) line 70. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::config::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::config") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::config::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"action"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "action", # name => "action", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"action"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:add|edit|get|get_all|get_regex|list|remove_section|rename_section|replace_all|set|unset|unset_all)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[add,edit,get,get_all,get_regex,list,remove_section,rename_section,replace_all,set,unset,unset_all]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"action\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"action"} = $args->{"action"}; # } # if (exists $args->{"context"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "context", # name => "context", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"context"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; do { !defined($_[0]) or (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:local|system|user)\\z}) } ? $_[0] : Type::Tiny::_failed_check(66, "Maybe[Enum[local,system,user]]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"context\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"context"} = $args->{"context"}; # } # if (exists $args->{"file"}) { # $new->{"file"} = $args->{"file"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"type"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "type", # name => "type", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"type"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:bool|bool\\-or\\-int|int|num)\\z}) ? $_[0] : Type::Tiny::_failed_check(67, "Enum[bool,bool-or-int,int,num]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"type\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"type"} = $args->{"type"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::config::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101808620)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102586638)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102596880)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::config::new("App::Sqitch::Command::config", HASH(0x1024ff258)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1024ff270)) called at t/command.t line 315 # # ---------- # Previous test 76 'Default params should be passed to Pod::Usage' # Useless use of array element in void context at (eval 308) line 106. # at (eval 308) line 106. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::config::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::config") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::config::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"action"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "action", # name => "action", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"action"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:add|edit|get|get_all|get_regex|list|remove_section|rename_section|replace_all|set|unset|unset_all)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[add,edit,get,get_all,get_regex,list,remove_section,rename_section,replace_all,set,unset,unset_all]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"action\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"action"} = $args->{"action"}; # } # if (exists $args->{"context"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "context", # name => "context", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"context"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; do { !defined($_[0]) or (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:local|system|user)\\z}) } ? $_[0] : Type::Tiny::_failed_check(66, "Maybe[Enum[local,system,user]]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"context\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"context"} = $args->{"context"}; # } # if (exists $args->{"file"}) { # $new->{"file"} = $args->{"file"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"type"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "type", # name => "type", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"type"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:bool|bool\\-or\\-int|int|num)\\z}) ? $_[0] : Type::Tiny::_failed_check(67, "Enum[bool,bool-or-int,int,num]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"type\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"type"} = $args->{"type"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::config::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101808620)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102586638)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102596880)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::config::new("App::Sqitch::Command::config", HASH(0x1024ff258)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1024ff270)) called at t/command.t line 315 # # ---------- # Previous test 76 'Default params should be passed to Pod::Usage' # Useless use of array element in void context at (eval 308) line 145. # at (eval 308) line 145. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::config::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::config") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::config::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"action"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "action", # name => "action", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"action"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:add|edit|get|get_all|get_regex|list|remove_section|rename_section|replace_all|set|unset|unset_all)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[add,edit,get,get_all,get_regex,list,remove_section,rename_section,replace_all,set,unset,unset_all]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"action\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"action"} = $args->{"action"}; # } # if (exists $args->{"context"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "context", # name => "context", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"context"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; do { !defined($_[0]) or (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:local|system|user)\\z}) } ? $_[0] : Type::Tiny::_failed_check(66, "Maybe[Enum[local,system,user]]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"context\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"context"} = $args->{"context"}; # } # if (exists $args->{"file"}) { # $new->{"file"} = $args->{"file"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"type"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "type", # name => "type", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"type"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:bool|bool\\-or\\-int|int|num)\\z}) ? $_[0] : Type::Tiny::_failed_check(67, "Enum[bool,bool-or-int,int,num]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"type\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"type"} = $args->{"type"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::config::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101808620)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102586638)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102596880)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::config::new("App::Sqitch::Command::config", HASH(0x1024ff258)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1024ff270)) called at t/command.t line 315 # # ---------- # Previous test 76 'Default params should be passed to Pod::Usage' # Useless use of array element in void context at (eval 308) line 181. # at (eval 308) line 181. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::config::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::config") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::config::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"action"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "action", # name => "action", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"action"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:add|edit|get|get_all|get_regex|list|remove_section|rename_section|replace_all|set|unset|unset_all)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[add,edit,get,get_all,get_regex,list,remove_section,rename_section,replace_all,set,unset,unset_all]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"action\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"action"} = $args->{"action"}; # } # if (exists $args->{"context"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "context", # name => "context", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"context"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; do { !defined($_[0]) or (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:local|system|user)\\z}) } ? $_[0] : Type::Tiny::_failed_check(66, "Maybe[Enum[local,system,user]]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"context\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"context"} = $args->{"context"}; # } # if (exists $args->{"file"}) { # $new->{"file"} = $args->{"file"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"type"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "type", # name => "type", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"type"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:bool|bool\\-or\\-int|int|num)\\z}) ? $_[0] : Type::Tiny::_failed_check(67, "Enum[bool,bool-or-int,int,num]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"type\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"type"} = $args->{"type"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::config::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101808620)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102586638)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x102596880)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::config::new("App::Sqitch::Command::config", HASH(0x1024ff258)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1024ff270)) called at t/command.t line 315 # # Looks like you failed 1 test of 114. t/command.t ......... 1..114 ok 1 - use App::Sqitch::Command; ok 2 - App::Sqitch::Command->can(...) ok 3 - Load a sqitch sqitch object ok 4 - Should get an exception for missing sqitch param ok 5 - Should get an exception for array sqitch param ok 6 - Should get an exception for string sqitch param ok 7 - An object of class 'App::Sqitch::Command' isa 'App::Sqitch::Command' ok 8 - Should get empty hash for no config or options ok 9 - Should get config with no options ok 10 - Options should override config ok 11 - Options keys should have dashes changed to underscores ok 12 - Load a "whu" command ok 13 - An object of class 'App::Sqitch::Command::whu' isa 'App::Sqitch::Command::whu' ok 14 - The sqitch attribute should be set ok 15 - Load a "whu" command with "foo" config ok 16 - The "foo" attribute should be set ok 17 - Should exit ok 18 - Nonexistent command error ident should be "config" ok 19 - Should get proper mesage for nonexistent command ok 20 - Nonexistent command should yield exitval of 1 ok 21 - Should die on bad command ok 22 - Bad command error ident should be "config" ok 23 - Should get proper mesage for bad command ok 24 - Bad command should yield exitval of 1 ok 25 - No command should yield usage ok 26 - No args should be passed to usage ok 27 - Should die on broken command module ok 28 - Broken command error ident should be "config" ok 29 - Should get proper mesage for broken command ok 30 - Broken command should yield exitval of 1 ok 31 - Load a "whu" command with "--feathers" optin ok 32 - The "feathers" attribute should be set ok 33 - Load a "wah-hoo" command ok 34 - 'It' isa 'App::Sqitch::Command::wah_hoo' ok 35 - command() should return hyphenated name ok 36 - App::Sqitch::Command->can('execute') ok 37 - Create a App::Sqitch::Command object ok 38 - Base class command should be "" ok 39 - Base object command should be "" ok 40 - Should get an error calling execute on command base class ok 41 - Execute exception ident should be "DEV" ok 42 - The execute() error message should be correct ok 43 - Create a subclass command object ok 44 - Subclass oject command should be "whu" ok 45 - Subclass class command should be "whu" ok 46 - Should get an error for un-overridden execute() method ok 47 - Un-overidden execute() exception ident should be "DEV" ok 48 - The unoverridden execute() error message should be correct ok 49 - App::Sqitch::Command->can(...) ok 50 - Create a App::Sqitch::Command object again ok 51 - Base _parse_opts should return an empty hash ok 52 - Create a subclass command object again ok 53 - Subclass should return an empty hash for no args ok 54 - Subclass should use options spec ok 55 - Subclass should parse options spec ok 56 - Args array should be cleared of options ok 57 - Should get warning for unknown option ok 58 - Should call _pod2usage on options parse failure ok 59 - 'Good command object' isa 'App::Sqitch::Command::good' ok 60 - Should get warning for unknown option when there are no options ok 61 - Should call _pod2usage on no options parse failure ok 62 - Load Sqitch with config and plan ok 63 - Load cmd with config and plan ok 64 - Parsing now args should return no results ok 65 - Single unknown arg should be returned unknown ok 66 - Single change should be recognized as change ok 67 - Single target should be recognized as target ok 68 - URI target should be recognized as target, too ok 69 - Target and change should be recognized ok 70 - Change and target should be recognized ok 71 - Change, target, and unknown should be recognized ok 72 - Multiple changes, target, and unknown should be recognized ok 73 - Call _pod2usage on base object ok 74 - Default params should be passed to Pod::Usage ok 75 - Call _pod2usage on "whu" command object ok 76 - Default params should be passed to Pod::Usage ok 77 - 'Config command object' isa 'App::Sqitch::Command::config' ok 78 - Call _pod2usage on "config" command object ok 79 - Should find sqitch-config docs to pass to Pod::Usage ok 80 - 'Good command object' isa 'App::Sqitch::Command::good' ok 81 - Call _pod2usage on "good" command object ok 82 - Should find App::Sqitch::Command::good docs to pass to Pod::Usage ok 83 - App::Sqitch::Command::good->can('usage') ok 84 - Should find App::Sqitch::Command::good docs to pass to Pod::Usage ok 85 - App::Sqitch::Command->can('verbosity') ok 86 - Verbosity should be from sqitch ok 87 - Verbosity should change with sqitch ok 88 - trace should work ok 89 - Should get no trace output for verbosity 2 ok 90 - trace_literal should work ok 91 - Should get no trace_literal output for verbosity 2 ok 92 - debug should work ok 93 - Should get no debug output for verbosity 1 ok 94 - debug_literal should work ok 95 - Should get no debug_literal output for verbosity 1 ok 96 - info should work ok 97 - Should get no info output for verbosity 0 ok 98 - info_literal should work ok 99 - Should get no info_literal output for verbosity 0 ok 100 - comment should work ok 101 - comment should work with verbosity 0 ok 102 - comment_literal should work ok 103 - comment_literal should work with verbosity 0 ok 104 - emit should work ok 105 - emit should work even with verbosity 0 ok 106 - emit_literal should work ok 107 - emit_literal should work even with verbosity 0 ok 108 - warn should work ok 109 - warn_literal should work ok 110 - threw Regexp ((?^:EXITED: 2)) ok 111 - usage should work ok 112 - threw Regexp ((?^:EXITED: 2)) ok 113 - usage should prefer sqitch-$command-usage not ok 114 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/114 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 26 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x101199768)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x101199690)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x1011995d0)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100ede2f8), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x100fa7ee0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x101202070)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x101402a28)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Plan", "class", "App::Sqitch::Plan") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x1011cf830)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x10140dad8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Change", "class", "App::Sqitch::Plan::Change") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x1012107e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x101414ea0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "ChangeList", "class", "App::Sqitch::Plan::ChangeList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x101210780)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x10141c008)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "LineList", "class", "App::Sqitch::Plan::LineList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x1012025f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x101429f48)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Tag", "class", "App::Sqitch::Plan::Tag") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x101202658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x10142f7c0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Depend", "class", "App::Sqitch::Plan::Depend") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x1013da3d8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x10143d3f0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DateTime", "class", "App::Sqitch::DateTime") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x101409c88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x101449c50)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x101414ba0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x10144e5f8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Config", "class", "App::Sqitch::Config") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x101202580)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x10145d890)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "File", "class", "Path::Class::File") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x10141bd20)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x101467b30)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Dir", "class", "Path::Class::Dir") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x10142f4f0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny::Class=HASH(0x10146c5c8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x10143d120)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny=HASH(0x10147b1d8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x100ede2f8), "constraint", CODE(0x1013d9a90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny=HASH(0x101482658)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x100ede2f8), "constraint", CODE(0x1013d9c88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny=HASH(0x10148d9b0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x1013d9e50)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x101227678), Type::Tiny=HASH(0x101493690)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x100ed32f0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at /export/home/fly1464/var/megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x1015a6160), ARRAY(0x1015302e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval 'package main; # # #line 18 t/config.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 18 t/config.t\x{a}use App::Sqitch \@{\$args[0]"..., ARRAY(0x1003efaa0)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/config.t line 18 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # # ---------- # Previous test 1 'use App::Sqitch;' # Useless use of array element in void context at (eval 196) line 77. # at (eval 196) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010dad40)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b7590)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100a575c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/config.t line 24 # # ---------- # Previous test 1 'use App::Sqitch;' # Useless use of array element in void context at (eval 196) line 438. # at (eval 196) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010dad40)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b7590)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100a575c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/config.t line 24 # # ---------- # Previous test 1 'use App::Sqitch;' # Useless use of array element in void context at (eval 196) line 515. # at (eval 196) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010dad40)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b7590)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100a575c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/config.t line 24 # # ---------- # Previous test 2 'Load a sqitch object' # Useless use of array element in void context at (eval 204) line 70. # at (eval 204) line 70. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::config::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::config") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::config::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"action"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "action", # name => "action", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"action"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:add|edit|get|get_all|get_regex|list|remove_section|rename_section|replace_all|set|unset|unset_all)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[add,edit,get,get_all,get_regex,list,remove_section,rename_section,replace_all,set,unset,unset_all]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"action\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"action"} = $args->{"action"}; # } # if (exists $args->{"context"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "context", # name => "context", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"context"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; do { !defined($_[0]) or (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:local|system|user)\\z}) } ? $_[0] : Type::Tiny::_failed_check(66, "Maybe[Enum[local,system,user]]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"context\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"context"} = $args->{"context"}; # } # if (exists $args->{"file"}) { # $new->{"file"} = $args->{"file"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"type"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "type", # name => "type", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"type"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:bool|bool\\-or\\-int|int|num)\\z}) ? $_[0] : Type::Tiny::_failed_check(67, "Enum[bool,bool-or-int,int,num]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"type\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"type"} = $args->{"type"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::config::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x10186b540)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10197cdd8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10188f588)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::config::new("App::Sqitch::Command::config", HASH(0x101910a30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x101360fe8)) called at t/config.t line 25 # # ---------- # Previous test 2 'Load a sqitch object' # Useless use of array element in void context at (eval 204) line 106. # at (eval 204) line 106. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::config::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::config") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::config::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"action"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "action", # name => "action", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"action"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:add|edit|get|get_all|get_regex|list|remove_section|rename_section|replace_all|set|unset|unset_all)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[add,edit,get,get_all,get_regex,list,remove_section,rename_section,replace_all,set,unset,unset_all]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"action\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"action"} = $args->{"action"}; # } # if (exists $args->{"context"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "context", # name => "context", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"context"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; do { !defined($_[0]) or (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:local|system|user)\\z}) } ? $_[0] : Type::Tiny::_failed_check(66, "Maybe[Enum[local,system,user]]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"context\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"context"} = $args->{"context"}; # } # if (exists $args->{"file"}) { # $new->{"file"} = $args->{"file"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"type"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "type", # name => "type", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"type"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:bool|bool\\-or\\-int|int|num)\\z}) ? $_[0] : Type::Tiny::_failed_check(67, "Enum[bool,bool-or-int,int,num]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"type\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"type"} = $args->{"type"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::config::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x10186b540)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10197cdd8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10188f588)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::config::new("App::Sqitch::Command::config", HASH(0x101910a30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x101360fe8)) called at t/config.t line 25 # # ---------- # Previous test 2 'Load a sqitch object' # Useless use of array element in void context at (eval 204) line 145. # at (eval 204) line 145. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::config::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::config") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::config::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"action"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "action", # name => "action", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"action"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:add|edit|get|get_all|get_regex|list|remove_section|rename_section|replace_all|set|unset|unset_all)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[add,edit,get,get_all,get_regex,list,remove_section,rename_section,replace_all,set,unset,unset_all]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"action\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"action"} = $args->{"action"}; # } # if (exists $args->{"context"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "context", # name => "context", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"context"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; do { !defined($_[0]) or (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:local|system|user)\\z}) } ? $_[0] : Type::Tiny::_failed_check(66, "Maybe[Enum[local,system,user]]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"context\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"context"} = $args->{"context"}; # } # if (exists $args->{"file"}) { # $new->{"file"} = $args->{"file"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"type"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "type", # name => "type", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"type"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:bool|bool\\-or\\-int|int|num)\\z}) ? $_[0] : Type::Tiny::_failed_check(67, "Enum[bool,bool-or-int,int,num]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"type\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"type"} = $args->{"type"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::config::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x10186b540)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10197cdd8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10188f588)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::config::new("App::Sqitch::Command::config", HASH(0x101910a30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x101360fe8)) called at t/config.t line 25 # # ---------- # Previous test 2 'Load a sqitch object' # Useless use of array element in void context at (eval 204) line 181. # at (eval 204) line 181. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::config::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::config") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::config::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"action"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "action", # name => "action", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"action"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:add|edit|get|get_all|get_regex|list|remove_section|rename_section|replace_all|set|unset|unset_all)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[add,edit,get,get_all,get_regex,list,remove_section,rename_section,replace_all,set,unset,unset_all]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"action\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"action"} = $args->{"action"}; # } # if (exists $args->{"context"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "context", # name => "context", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"context"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; do { !defined($_[0]) or (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:local|system|user)\\z}) } ? $_[0] : Type::Tiny::_failed_check(66, "Maybe[Enum[local,system,user]]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"context\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"context"} = $args->{"context"}; # } # if (exists $args->{"file"}) { # $new->{"file"} = $args->{"file"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"type"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "type", # name => "type", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"type"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:bool|bool\\-or\\-int|int|num)\\z}) ? $_[0] : Type::Tiny::_failed_check(67, "Enum[bool,bool-or-int,int,num]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"type\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"type"} = $args->{"type"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::config::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x10186b540)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10197cdd8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10188f588)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::config::new("App::Sqitch::Command::config", HASH(0x101910a30)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x101360fe8)) called at t/config.t line 25 # # Looks like you failed 1 test of 344. t/config.t .......... 1..344 ok 1 - use App::Sqitch; ok 2 - Load a sqitch object ok 3 - 'Config command' isa 'App::Sqitch::Command::config' ok 4 - 'Config command' isa 'App::Sqitch::Command' ok 5 - App::Sqitch::Command::config->can(...) ok 6 - Options should be configured ok 7 - Construct with user and system ok 8 - Should get error for multiple config files ok 9 - Construct with user and local ok 10 - Should get error for multiple config files ok 11 - Construct with file and system ok 12 - Should get another error for multiple config files ok 13 - Construct with file and user ok 14 - Should get a third error for multiple config files ok 15 - Construct with file, system, and user ok 16 - Should get one last error for multiple config files ok 17 - Construct with bool and num ok 18 - Should get error for multiple types ok 19 - Construct with int and num ok 20 - Should get another error for multiple types ok 21 - Construct with int and bool ok 22 - Should get a third error for multiple types ok 23 - Construct with int, num, and bool ok 24 - Should get one last error for multiple types ok 25 - Construct with get & unset ok 26 - Should get error for multiple actions ok 27 - Construct with get & unset & edit ok 28 - Should get error for multiple actions ok 29 - Construct with get & unset & edit & list ok 30 - Should get error for multiple actions ok 31 - Construct with unset & edit ok 32 - Should get error for multiple actions ok 33 - Construct with unset & edit & list ok 34 - Should get error for multiple actions ok 35 - Construct with edit & list ok 36 - Should get error for multiple actions ok 37 - Construct with edit & add & list ok 38 - Should get error for multiple actions ok 39 - Construct with edit & add & list & get_all ok 40 - Should get error for multiple actions ok 41 - Construct with edit & add & list & get_regex ok 42 - Should get error for multiple actions ok 43 - Construct with edit & add & list & unset_all ok 44 - Should get error for multiple actions ok 45 - Construct with edit & add & list & get_all & unset_all ok 46 - Should get error for multiple actions ok 47 - Construct with edit & list & remove_section ok 48 - Should get error for multiple actions ok 49 - Construct with edit & list & remove_section & rename_section ok 50 - Should get error for multiple actions ok 51 - Default context should be local context ok 52 - Default action should be undef ok 53 - Default context should be undef ok 54 - Local context should be local ok 55 - User context should be user ok 56 - System context should be system ok 57 - Create config set command ok 58 - Execute the set command ok 59 - The set method should have been called ok 60 - Execute the get command ok 61 - The get method should have been called ok 62 - Create config get_all command ok 63 - An action with a dash should have triggered a method with an underscore ok 64 - Create config get command ok 65 - Get core.engine ok 66 - Should have emitted the merged core.engine ok 67 - Get core.pg.host ok 68 - Should have emitted the merged core.pg.host ok 69 - Get core.pg.client ok 70 - Should have emitted the merged core.pg.client ok 71 - Should get usage for missing get key ok 72 - And the missing get key should trigger a usage message ok 73 - Should get usage for invalid get key ok 74 - And the invalid get key should trigger a usage message ok 75 - Create config get int command ok 76 - Get revert.count as int ok 77 - Should have emitted the revert count ok 78 - Get revert.revision as int ok 79 - Should have emitted the revert revision as an int ok 80 - Get bundle.tags_only as an int should fail ok 81 - Int cast exception ident should be "config" ok 82 - Create config get num command ok 83 - Get revert.count as num ok 84 - Should have emitted the revert count ok 85 - Get revert.revision as num ok 86 - Should have emitted the revert revision as an num ok 87 - Get bundle.tags_only as an num should fail ok 88 - Num cast exception ident should be "config" ok 89 - Create config get bool command ok 90 - Should get failure for invalid bool int ok 91 - Bool int cast exception ident should be "config" ok 92 - Should get failure for invalid bool num ok 93 - Bool num cast exception ident should be "config" ok 94 - Get bundle.tags_only as bool ok 95 - Should have emitted bundle.tags_only as a bool ok 96 - Create config get bool-or-int command ok 97 - Get revert.count as bool-or-int ok 98 - Should have emitted the revert count as an int ok 99 - Get revert.revision as bool-or-int ok 100 - Should have emitted the revert revision as an int ok 101 - Get bundle.tags_only as bool-or-int ok 102 - Should have emitted bundle.tags_only as a bool ok 103 - Create system config get command ok 104 - Get system core.engine ok 105 - Should have emitted the system core.engine ok 106 - Get system core.pg.client ok 107 - Should have emitted the system core.pg.client ok 108 - Attempt to get core.pg.host should fail ok 109 - Error ident should be "config" ok 110 - Error Message should be empty ok 111 - Error exitval should be 1 ok 112 - Nothing should have been emitted ok 113 - Create user config get command ok 114 - Get user core.pg.host ok 115 - Should have emitted the user core.pg.host ok 116 - Get user core.pg.client ok 117 - Should have emitted the user core.pg.client ok 118 - Create local config get command ok 119 - Get local core.pg.db_name ok 120 - Should have emitted the local core.pg.db_name ok 121 - Get local core.engine ok 122 - Should have emitted the local core.engine ok 123 - Create another system config get command ok 124 - There should be no system config file ok 125 - Should fail when no system config file ok 126 - Error ident should be "config" ok 127 - Error Message should be empty ok 128 - Error exitval should be 1 ok 129 - Create another user config get command ok 130 - There should be no user config file ok 131 - Should fail when no user config file ok 132 - Error ident should be "config" ok 133 - Error Message should be empty ok 134 - Error exitval should be 1 ok 135 - Create another local config get command ok 136 - There should be no local config file ok 137 - Should fail when no local config file ok 138 - Error ident should be "config" ok 139 - Error Message should be empty ok 140 - Error exitval should be 1 ok 141 - Create config list command ok 142 - Execute the list action ok 143 - Should have emitted the merged config ok 144 - Create system config list command ok 145 - List the system config ok 146 - Should have emitted the system config list ok 147 - Create user config list command ok 148 - List the user config ok 149 - Should only have emitted the user config list ok 150 - Create local config list command ok 151 - List the local config ok 152 - Should only have emitted the local config list ok 153 - Create system config list command with no file ok 154 - List the system config ok 155 - Nothing should have been emitted ok 156 - Create user config list command with no file ok 157 - List the user config ok 158 - Nothing should have been emitted ok 159 - Create system config set command ok 160 - Write core.foo ok 161 - The property should have been written ok 162 - Write core.engine ok 163 - Both settings should be saved ok 164 - Write core.pg.user ok 165 - Both sections should be saved ok 166 - Should set usage for missing set key ok 167 - And the missing set key should trigger a usage message ok 168 - Should set usage for invalid set key ok 169 - And the invalid set key should trigger a usage message ok 170 - Should set usage for missing set value ok 171 - And the missing set value should trigger a usage message ok 172 - Create system config add command ok 173 - Add to core.foo ok 174 - The value should have been added to the property ok 175 - Should add usage for missing add key ok 176 - And the missing add key should trigger a usage message ok 177 - Should add usage for invalid add key ok 178 - And the invalid add key should trigger a usage message ok 179 - Should add usage for missing add value ok 180 - And the missing add value should trigger a usage message ok 181 - Create system config add command ok 182 - Get core.engine with regex ok 183 - Should have emitted value ok 184 - Get core.foo with regex ok 185 - Should have emitted value ok 186 - Attempt to get core.foo with non-matching regex should fail ok 187 - Error ident should be "config" ok 188 - Error Message should be empty ok 189 - Error exitval should be 1 ok 190 - Nothing should have been emitted ok 191 - Create system config get_all command ok 192 - Call get_all on core.engine ok 193 - The engine should have been emitted ok 194 - Get all core.engine with regex ok 195 - Should have emitted value ok 196 - Call get_all on core.foo ok 197 - Both foos should have been emitted ok 198 - Call get_all on core.foo with regex ok 199 - Both foos should have been emitted ok 200 - Call get_all on core.foo with limiting regex ok 201 - Only the one foo should have been emitted ok 202 - Attempt to get_all core.foo with non-matching regex should fail ok 203 - Error ident should be "config" ok 204 - Error Message should be empty ok 205 - Error exitval should be 1 ok 206 - Nothing should have been emitted ok 207 - Should get_all usage for missing get_all key ok 208 - And the missing get_all key should trigger a usage message ok 209 - Should get_all usage for invalid get_all key ok 210 - And the invalid get_all key should trigger a usage message ok 211 - Create config get_all int command ok 212 - Get revert.count as int ok 213 - Should have emitted the revert count ok 214 - Get revert.revision as int ok 215 - Should have emitted the revert revision as an int ok 216 - Get bundle.tags_only as an int should fail ok 217 - Int cast exception ident should be "config" ok 218 - Create config get_all num command ok 219 - Get revert.count as num ok 220 - Should have emitted the revert count ok 221 - Get revert.revision as num ok 222 - Should have emitted the revert revision as an num ok 223 - Get bundle.tags_only as an num should fail ok 224 - Num cast exception ident should be "config" ok 225 - Create config get_all bool command ok 226 - Should get failure for invalid bool int ok 227 - Bool int cast exception ident should be "config" ok 228 - Should get failure for invalid bool num ok 229 - Num int cast exception ident should be "config" ok 230 - Get bundle.tags_only as bool ok 231 - Should have emitted bundle.tags_only as a bool ok 232 - Create config get_all bool-or-int command ok 233 - Get revert.count as bool-or-int ok 234 - Should have emitted the revert count as an int ok 235 - Get revert.revision as bool-or-int ok 236 - Should have emitted the revert revision as an int ok 237 - Get bundle.tags_only as bool-or-int ok 238 - Should have emitted bundle.tags_only as a bool ok 239 - Create system config get_regex command ok 240 - Call get_regex on core\..+ ok 241 - Should match all core options ok 242 - Call get_regex on core\.pg\..+ ok 243 - Should match all core.pg options ok 244 - Call get_regex on core\.pg\..+ and value regex ok 245 - Should match all core.pg options that match ok 246 - Attempt to get_regex core.foo with non-matching regex should fail ok 247 - Error ident should be "config" ok 248 - Error Message should be empty ok 249 - Error exitval should be 1 ok 250 - Nothing should have been emitted ok 251 - Should get_regex usage for missing get_regex key ok 252 - And the missing get_regex key should trigger a usage message ok 253 - Should get_regex usage for invalid get_regex key ok 254 - And the invalid get_regex key should trigger a usage message ok 255 - Create config get_regex int command ok 256 - Get revert.count as int ok 257 - Should have emitted the revert count ok 258 - Get revert.revision as int ok 259 - Should have emitted the revert revision as an int ok 260 - Get bundle.tags_only as an int should fail ok 261 - Int cast exception ident should be "config" ok 262 - Create config get_regexp num command ok 263 - Get revert.count as num ok 264 - Should have emitted the revert count ok 265 - Get revert.revision as num ok 266 - Should have emitted the revert revision as an num ok 267 - Get bundle.tags_only as an num should fail ok 268 - Num cast exception ident should be "config" ok 269 - Create config get_regex bool command ok 270 - Should get failure for invalid bool int ok 271 - Bool int cast exception ident should be "config" ok 272 - Should get failure for invalid bool num ok 273 - Num int cast exception ident should be "config" ok 274 - Get bundle.tags_only as bool ok 275 - Should have emitted bundle.tags_only as a bool ok 276 - Create config get_regex bool-or-int command ok 277 - Get revert.count as bool-or-int ok 278 - Should have emitted the revert count as an int ok 279 - Get revert.revision as bool-or-int ok 280 - Should have emitted the revert revision as an int ok 281 - Get bundle.tags_only as bool-or-int ok 282 - Should have emitted bundle.tags_only as a bool ok 283 - Create system config unset command ok 284 - Unset core.pg.user ok 285 - core.pg.user should be gone ok 286 - Unset core.engine ok 287 - core.engine should have been removed ok 288 - Should get failure trying to delete multivalue key ok 289 - Multiple value exception ident should be "config" ok 290 - And it should have the proper error message ok 291 - Unset core.foo with a regex ok 292 - The core.foo "baz" value should have been removed ok 293 - Should unset usage for missing unset key ok 294 - And the missing unset key should trigger a usage message ok 295 - Should unset usage for invalid unset key ok 296 - And the invalid unset key should trigger a usage message ok 297 - Create system config unset_all command ok 298 - unset_all core.foo ok 299 - core.foo should have been removed ok 300 - unset_all core.foo with regex ok 301 - core.foo should have one value left ok 302 - Should unset_all usage for missing unset_all key ok 303 - And the missing unset_all key should trigger a usage message ok 304 - Should unset_all usage for invalid unset_all key ok 305 - And the invalid unset_all key should trigger a usage message ok 306 - Create system config replace_all command ok 307 - Replace all core.bar ok 308 - core.bar should have all its values with one value ok 309 - Replace all core.bar matching /^ba/ ok 310 - core.foo should have had the matching values replaced ok 311 - Create system config rename_section command ok 312 - Rename "core" to "funk" ok 313 - core.foo should have become funk.foo ok 314 - Should fail with no new name ok 315 - Message should be in the usage call ok 316 - Should fail with bad old name ok 317 - Message should be in the usage call ok 318 - Should fail with bad new name ok 319 - Message should be in the usage call ok 320 - Should fail with invalid section ok 321 - Invalid section exception ident should be "config" ok 322 - Invalid section exception message should be set ok 323 - Create system config remove_section command ok 324 - Remove "func" section ok 325 - The "funk" section should be gone ok 326 - Should fail with no name ok 327 - Message should be in the usage call ok 328 - Should fail with invalid name ok 329 - Invalid key name exception ident should be "config" ok 330 - And the invalid key message should be set ok 331 - Should fail fetching multi-value key ok 332 - Multi-value key exception ident should be "config" ok 333 - The multiple value error should be thrown ok 334 - Should fail setting multi-value key ok 335 - Mult-valkue key exception ident should be "config" ok 336 - The multi-value key error should be thrown ok 337 - Create system config edit command ok 338 - Execute the edit comand ok 339 - The editor should have been run ok 340 - Load a new sqitch object ok 341 - Create system config set command with subdirectory config file path ok 342 - Set "my.foo" in subdirectory config file ok 343 - The file should have been written not ok 344 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/344 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 1 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x1010b1e40)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x1010b1d68)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x1010b1ca8)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100df9650), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Config.pm line 9 # App::Sqitch::Config::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch/Config.pm called at t/configuration.t line 15 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval 'package main; # # #line 15 t/configuration.t # use App::Sqitch::Config @{$args[0]}; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}\x{a}#line 15 t/configuration.t\x{a}use App::Sqitch::Co"..., ARRAY(0x1003ee410)) called at /export/home/fly1464/var/megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch::Config") called at t/configuration.t line 15 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # Looks like you failed 1 test of 17. t/configuration.t ... 1..17 ok 1 - use App::Sqitch::Config; ok 2 - 'New config object' isa 'App::Sqitch::Config' ok 3 - confname should be "sqitch.conf" ok 4 # skip System dir can be modified at build time ok 5 - Default user directory should be correct ok 6 - Default global file name should be correct ok 7 - Should preferably get SQITCH_SYSTEM_CONFIG file from global_file ok 8 - system_file should alias global_file ok 9 - Default user file name should be correct ok 10 - Should preferably get SQITCH_USER_CONFIG file from user_file ok 11 - Local file should be correct ok 12 - dir_file should alias local_file ok 13 - local_file should prefer $SQITCH_CONFIG ok 14 - And so should dir_file ok 15 - get_section("core") should work ok 16 - get_section("core.pg") should work not ok 17 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/17 subtests (less 1 skipped subtest: 15 okay) Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 1 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x101371c38)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x101371b60)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x101371aa0)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x1010f9600), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/DateTime.pm line 9 # App::Sqitch::DateTime::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch/DateTime.pm called at (eval 19) line 2 # eval 'package main; # require App::Sqitch::DateTime; # 1; # # ;' called at /export/home/fly1464/var/megalib/Test/More.pm line 992 # Test::More::_eval("package main;\x{a}require App::Sqitch::DateTime;\x{a}1;\x{a}") called at /export/home/fly1464/var/megalib/Test/More.pm line 859 # Test::More::require_ok("App::Sqitch::DateTime") called at t/datetime.t line 18 # # Looks like you failed 1 test of 33. t/datetime.t ........ 1..33 ok 1 - require App::Sqitch::DateTime; ok 2 - Construct a datetime object ok 3 - as_string_formats should be correct ok 4 - Date format "full" should yield "Saturday, September 6, 2014 7:16:20 AM America/Vancouver" ok 5 - Format "full" should be valid ok 6 - Date format "long" should yield "September 6, 2014 7:16:20 AM PDT" ok 7 - Format "long" should be valid ok 8 - Date format "medium" should yield "Sep 6, 2014 7:16:20 AM" ok 9 - Format "medium" should be valid ok 10 - Date format "short" should yield "9/6/14 7:16 AM" ok 11 - Format "short" should be valid ok 12 - Date format "raw" should yield "2014-09-06T14:16:20Z" ok 13 - Format "raw" should be valid ok 14 - Date format "" should yield "2014-09-06T14:16:20Z" ok 15 - Date format "iso" should yield "2014-09-06 07:16:20 -0700" ok 16 - Format "iso" should be valid ok 17 - Date format "iso8601" should yield "2014-09-06 07:16:20 -0700" ok 18 - Format "iso8601" should be valid ok 19 - Date format "rfc" should yield "Sat, 06 Sep 2014 07:16:20 -0700" ok 20 - Format "rfc" should be valid ok 21 - Date format "rfc2822" should yield "Sat, 06 Sep 2014 07:16:20 -0700" ok 22 - Format "rfc2822" should be valid ok 23 - Date format "cldr:HH'h' mm'm'" should yield "07h 16m" ok 24 - Format "cldr:HH'h' mm'm'" should be valid ok 25 - Date format "strftime:%a at %H:%M:%S" should yield "Sat at 07:16:20" ok 26 - Format "strftime:%a at %H:%M:%S" should be valid ok 27 - Should get error for invalid date format ok 28 - Invalid date format error ident should be "datetime" ok 29 - Invalid date format error message should be correct ok 30 - Should get error for invalid as_string format param ok 31 - Invalid date format error ident should be "datetime" ok 32 - Invalid date format error message should be correct not ok 33 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/33 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Useless use of array element in void context at (eval 198) line 77. Useless use of array element in void context at (eval 198) line 438. Useless use of array element in void context at (eval 198) line 515. Useless use of array element in void context at (eval 200) line 307. Useless use of array element in void context at (eval 200) line 384. Useless use of array element in void context at (eval 200) line 420. Useless use of array element in void context at (eval 213) line 189. Useless use of array element in void context at (eval 213) line 379. Useless use of array element in void context at (eval 213) line 456. Useless use of array element in void context at (eval 213) line 492. Useless use of array element in void context at (eval 213) line 528. Useless use of array element in void context at (eval 219) line 43. Useless use of array element in void context at (eval 220) line 71. Useless use of array element in void context at (eval 220) line 107. Useless use of array element in void context at (eval 220) line 256. Useless use of array element in void context at (eval 225) line 298, line 1. Useless use of array element in void context at (eval 226) line 262, line 2. Useless use of array element in void context at (eval 237) line 597, line 3. Useless use of array element in void context at (eval 237) line 633, line 3. Useless use of array element in void context at (eval 237) line 906, line 3. Useless use of hash element in void context at (eval 237) line 646, line 3. Useless use of array element in void context at (eval 238) line 61, line 5. Useless use of array element in void context at (eval 238) line 441, line 5. Useless use of array element in void context at (eval 238) line 637, line 5. Useless use of array element in void context at (eval 243) line 189. Useless use of array element in void context at (eval 243) line 379. Useless use of array element in void context at (eval 243) line 456. Useless use of array element in void context at (eval 243) line 492. t/dburi.t ........... ok 1 - App::Sqitch::Engine->can('uri') ok 2 - 'Engine' isa 'App::Sqitch::Engine' ok 3 - Should get an exception when no engine ok 4 - No _engine error ident should be "core" ok 5 - No _engine error message should be correct ok 6 - 'SQLite Engine' isa 'App::Sqitch::Engine::sqlite' ok 7 - 'SQLite URI' isa 'URI::db' ok 8 - SQLite URI should be correct ok 9 - 'Engine with Pg engine' isa 'App::Sqitch::Engine' ok 10 - 'Pg URI' isa 'URI::db' ok 11 - Pg URI should be correct ok 12 - URI should be the default for the engine ok 13 - Should have asked for the Pg default target ok 14 - URI should be from the target lookup ok 15 - Should have asked for the Pg default target again ok 16 - Should have looked up the "yo" database ok 17 - URI should get the engine-specific config key ok 18 - Should have asked for the Pg default uri ok 19 - 'Engine with host only' isa 'App::Sqitch::Engine' ok 20 - Default URI with host only should be correct ok 21 - 'Engine with host and port' isa 'App::Sqitch::Engine' ok 22 - Default URI with host and port should be correct ok 23 - 'Engine with username' isa 'App::Sqitch::Engine' ok 24 - Default URI with username should be correct ok 25 - 'Engine with db name' isa 'App::Sqitch::Engine' ok 26 - Default URI with db name should be correct ok 27 - 'Engine with host and db name' isa 'App::Sqitch::Engine' ok 28 - Default URI with host and db name should be correct ok 29 - 'Engine with all parts' isa 'App::Sqitch::Engine' ok 30 - Default URI with all parts should be correct ok 31 - 'Engine with URI' isa 'App::Sqitch::Engine' ok 32 - DB name should be merged into URI ok 33 - 'Engine with full URI' isa 'App::Sqitch::Engine' ok 34 - DB host and name should be merged into URI 1..34 ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Useless use of array element in void context at (eval 195) line 77. Useless use of array element in void context at (eval 195) line 438. Useless use of array element in void context at (eval 195) line 515. Useless use of array element in void context at (eval 196) line 71. Useless use of array element in void context at (eval 196) line 107. Useless use of array element in void context at (eval 196) line 256. Useless use of array element in void context at (eval 197) line 57. Useless use of array element in void context at (eval 197) line 206. Useless use of array element in void context at (eval 197) line 278. Useless use of array element in void context at (eval 197) line 314. Useless use of array element in void context at (eval 197) line 350. Useless use of array element in void context at (eval 197) line 386. Useless use of array element in void context at (eval 198) line 43. Useless use of array element in void context at (eval 279) line 43. Useless use of array element in void context at (eval 280) line 43. Useless use of array element in void context at (eval 290) line 298, line 1. Useless use of array element in void context at (eval 291) line 262, line 2. Useless use of array element in void context at (eval 302) line 597, line 3. Useless use of array element in void context at (eval 302) line 633, line 3. Useless use of array element in void context at (eval 302) line 906, line 3. Useless use of hash element in void context at (eval 302) line 646, line 3. Useless use of array element in void context at (eval 303) line 61, line 5. Useless use of array element in void context at (eval 303) line 441, line 5. Useless use of array element in void context at (eval 303) line 637, line 5. Useless use of array element in void context at (eval 373) line 39. t/depend.t .......... 1..326 ok 1 - require App::Sqitch::Plan::Depend; ok 2 - Load a sqitch sqitch object ok 3 - App::Sqitch::Plan::Depend->can(...) ok 4 - Construct "foo" ok 5 - Constructed should stringify as "foo" ok 6 - Constructed should have key name "foo" ok 7 - Constructed should plan stringify as "foo" ok 8 - Parse "foo" ok 9 - Parsed should plan stringify as "foo" ok 10 - "foo" should be required ok 11 - "foo" should not be conflicting ok 12 - "foo" type should be "require" ok 13 - Should not have got project from "foo" ok 14 - Should have project "depend" for "foo" ok 15 - "foo" should not be external ok 16 - "foo" should be internal ok 17 - Should not have got ID from "foo" ok 18 - Construct "bar" ok 19 - Constructed should stringify as "bar" ok 20 - Constructed should have key name "bar" ok 21 - Constructed should plan stringify as "bar" ok 22 - Parse "bar" ok 23 - Parsed should plan stringify as "bar" ok 24 - "bar" should be required ok 25 - "bar" should not be conflicting ok 26 - "bar" type should be "require" ok 27 - Should not have got project from "bar" ok 28 - Should have project "depend" for "bar" ok 29 - "bar" should not be external ok 30 - "bar" should be internal ok 31 - Should not have got ID from "bar" ok 32 - Construct "@bar" ok 33 - Constructed should stringify as "@bar" ok 34 - Constructed should have key name "@bar" ok 35 - Constructed should plan stringify as "@bar" ok 36 - Parse "@bar" ok 37 - Parsed should plan stringify as "@bar" ok 38 - "@bar" should be required ok 39 - "@bar" should not be conflicting ok 40 - "@bar" type should be "require" ok 41 - Should not have got project from "@bar" ok 42 - Should have project "depend" for "@bar" ok 43 - "@bar" should not be external ok 44 - "@bar" should be internal ok 45 - Should not have got ID from "@bar" ok 46 - Construct "!foo" ok 47 - Constructed should stringify as "foo" ok 48 - Constructed should have key name "foo" ok 49 - Constructed should plan stringify as "!foo" ok 50 - Parse "!foo" ok 51 - Parsed should plan stringify as "!foo" ok 52 - "!foo" should be conflicting ok 53 - "!foo" should not be required ok 54 - "!foo" type should be "conflict" ok 55 - Should not have got project from "!foo" ok 56 - Should have project "depend" for "!foo" ok 57 - "!foo" should not be external ok 58 - "!foo" should be internal ok 59 - Should not have got ID from "!foo" ok 60 - Construct "!@bar" ok 61 - Constructed should stringify as "@bar" ok 62 - Constructed should have key name "@bar" ok 63 - Constructed should plan stringify as "!@bar" ok 64 - Parse "!@bar" ok 65 - Parsed should plan stringify as "!@bar" ok 66 - "!@bar" should be conflicting ok 67 - "!@bar" should not be required ok 68 - "!@bar" type should be "conflict" ok 69 - Should not have got project from "!@bar" ok 70 - Should have project "depend" for "!@bar" ok 71 - "!@bar" should not be external ok 72 - "!@bar" should be internal ok 73 - Should not have got ID from "!@bar" ok 74 - Construct "foo@bar" ok 75 - Constructed should stringify as "foo@bar" ok 76 - Constructed should have key name "foo@bar" ok 77 - Constructed should plan stringify as "foo@bar" ok 78 - Parse "foo@bar" ok 79 - Parsed should plan stringify as "foo@bar" ok 80 - "foo@bar" should be required ok 81 - "foo@bar" should not be conflicting ok 82 - "foo@bar" type should be "require" ok 83 - Should not have got project from "foo@bar" ok 84 - Should have project "depend" for "foo@bar" ok 85 - "foo@bar" should not be external ok 86 - "foo@bar" should be internal ok 87 - Should not have got ID from "foo@bar" ok 88 - Construct "!foo@bar" ok 89 - Constructed should stringify as "foo@bar" ok 90 - Constructed should have key name "foo@bar" ok 91 - Constructed should plan stringify as "!foo@bar" ok 92 - Parse "!foo@bar" ok 93 - Parsed should plan stringify as "!foo@bar" ok 94 - "!foo@bar" should be conflicting ok 95 - "!foo@bar" should not be required ok 96 - "!foo@bar" type should be "conflict" ok 97 - Should not have got project from "!foo@bar" ok 98 - Should have project "depend" for "!foo@bar" ok 99 - "!foo@bar" should not be external ok 100 - "!foo@bar" should be internal ok 101 - Should not have got ID from "!foo@bar" ok 102 - Construct "proj:foo" ok 103 - Constructed should stringify as "proj:foo" ok 104 - Constructed should have key name "foo" ok 105 - Constructed should plan stringify as "proj:foo" ok 106 - Parse "proj:foo" ok 107 - Parsed should plan stringify as "proj:foo" ok 108 - "proj:foo" should be required ok 109 - "proj:foo" should not be conflicting ok 110 - "proj:foo" type should be "require" ok 111 - Should have got project from "proj:foo" ok 112 - Should have project "proj" for "proj:foo" ok 113 - "proj:foo" should be external ok 114 - "proj:foo" should not be internal ok 115 - Should not have got ID from "proj:foo" ok 116 - Construct "!proj:foo" ok 117 - Constructed should stringify as "proj:foo" ok 118 - Constructed should have key name "foo" ok 119 - Constructed should plan stringify as "!proj:foo" ok 120 - Parse "!proj:foo" ok 121 - Parsed should plan stringify as "!proj:foo" ok 122 - "!proj:foo" should be conflicting ok 123 - "!proj:foo" should not be required ok 124 - "!proj:foo" type should be "conflict" ok 125 - Should have got project from "!proj:foo" ok 126 - Should have project "proj" for "!proj:foo" ok 127 - "!proj:foo" should be external ok 128 - "!proj:foo" should not be internal ok 129 - Should not have got ID from "!proj:foo" ok 130 - Construct "proj:@foo" ok 131 - Constructed should stringify as "proj:@foo" ok 132 - Constructed should have key name "@foo" ok 133 - Constructed should plan stringify as "proj:@foo" ok 134 - Parse "proj:@foo" ok 135 - Parsed should plan stringify as "proj:@foo" ok 136 - "proj:@foo" should be required ok 137 - "proj:@foo" should not be conflicting ok 138 - "proj:@foo" type should be "require" ok 139 - Should have got project from "proj:@foo" ok 140 - Should have project "proj" for "proj:@foo" ok 141 - "proj:@foo" should be external ok 142 - "proj:@foo" should not be internal ok 143 - Should not have got ID from "proj:@foo" ok 144 - Construct "!proj:@foo" ok 145 - Constructed should stringify as "proj:@foo" ok 146 - Constructed should have key name "@foo" ok 147 - Constructed should plan stringify as "!proj:@foo" ok 148 - Parse "!proj:@foo" ok 149 - Parsed should plan stringify as "!proj:@foo" ok 150 - "!proj:@foo" should be conflicting ok 151 - "!proj:@foo" should not be required ok 152 - "!proj:@foo" type should be "conflict" ok 153 - Should have got project from "!proj:@foo" ok 154 - Should have project "proj" for "!proj:@foo" ok 155 - "!proj:@foo" should be external ok 156 - "!proj:@foo" should not be internal ok 157 - Should not have got ID from "!proj:@foo" ok 158 - Construct "proj:foo@bar" ok 159 - Constructed should stringify as "proj:foo@bar" ok 160 - Constructed should have key name "foo@bar" ok 161 - Constructed should plan stringify as "proj:foo@bar" ok 162 - Parse "proj:foo@bar" ok 163 - Parsed should plan stringify as "proj:foo@bar" ok 164 - "proj:foo@bar" should be required ok 165 - "proj:foo@bar" should not be conflicting ok 166 - "proj:foo@bar" type should be "require" ok 167 - Should have got project from "proj:foo@bar" ok 168 - Should have project "proj" for "proj:foo@bar" ok 169 - "proj:foo@bar" should be external ok 170 - "proj:foo@bar" should not be internal ok 171 - Should not have got ID from "proj:foo@bar" ok 172 - Construct "!proj:foo@bar" ok 173 - Constructed should stringify as "proj:foo@bar" ok 174 - Constructed should have key name "foo@bar" ok 175 - Constructed should plan stringify as "!proj:foo@bar" ok 176 - Parse "!proj:foo@bar" ok 177 - Parsed should plan stringify as "!proj:foo@bar" ok 178 - "!proj:foo@bar" should be conflicting ok 179 - "!proj:foo@bar" should not be required ok 180 - "!proj:foo@bar" type should be "conflict" ok 181 - Should have got project from "!proj:foo@bar" ok 182 - Should have project "proj" for "!proj:foo@bar" ok 183 - "!proj:foo@bar" should be external ok 184 - "!proj:foo@bar" should not be internal ok 185 - Should not have got ID from "!proj:foo@bar" ok 186 - Construct "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 187 - Constructed should stringify as "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 188 - Constructed should have key name "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 189 - Constructed should plan stringify as "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 190 - Parse "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 191 - Parsed should plan stringify as "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 192 - "9ed961ad7902a67fe0804c8e49e8993719fd5065" should be required ok 193 - "9ed961ad7902a67fe0804c8e49e8993719fd5065" should not be conflicting ok 194 - "9ed961ad7902a67fe0804c8e49e8993719fd5065" type should be "require" ok 195 - Should not have got project from "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 196 - Should have undef project for "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 197 - "9ed961ad7902a67fe0804c8e49e8993719fd5065" should be external ok 198 - "9ed961ad7902a67fe0804c8e49e8993719fd5065" should not be internal ok 199 - Should have got ID from "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 200 - Construct "!9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 201 - Constructed should stringify as "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 202 - Constructed should have key name "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 203 - Constructed should plan stringify as "!9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 204 - Parse "!9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 205 - Parsed should plan stringify as "!9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 206 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065" should be conflicting ok 207 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065" should not be required ok 208 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065" type should be "conflict" ok 209 - Should not have got project from "!9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 210 - Should have undef project for "!9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 211 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065" should be external ok 212 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065" should not be internal ok 213 - Should have got ID from "!9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 214 - Construct "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 215 - Constructed should stringify as "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 216 - Constructed should have key name "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 217 - Constructed should plan stringify as "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 218 - Parse "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 219 - Parsed should plan stringify as "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 220 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" should be required ok 221 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" should not be conflicting ok 222 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" type should be "require" ok 223 - Should have got project from "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 224 - Should have project "foo" for "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 225 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" should be external ok 226 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" should not be internal ok 227 - Should have got ID from "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 228 - Construct "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 229 - Constructed should stringify as "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 230 - Constructed should have key name "9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 231 - Constructed should plan stringify as "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 232 - Parse "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 233 - Parsed should plan stringify as "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 234 - "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" should be conflicting ok 235 - "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" should not be required ok 236 - "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" type should be "conflict" ok 237 - Should have got project from "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 238 - Should have project "foo" for "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 239 - "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" should be external ok 240 - "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" should not be internal ok 241 - Should have got ID from "!foo:9ed961ad7902a67fe0804c8e49e8993719fd5065" ok 242 - Construct "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 243 - Constructed should stringify as "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 244 - Constructed should have key name "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 245 - Constructed should plan stringify as "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 246 - Parse "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 247 - Parsed should plan stringify as "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 248 - "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should be required ok 249 - "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should not be conflicting ok 250 - "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" type should be "require" ok 251 - Should not have got project from "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 252 - Should have project "depend" for "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 253 - "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should not be external ok 254 - "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should be internal ok 255 - Should not have got ID from "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 256 - Construct "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 257 - Constructed should stringify as "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 258 - Constructed should have key name "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 259 - Constructed should plan stringify as "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 260 - Parse "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 261 - Parsed should plan stringify as "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 262 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should be conflicting ok 263 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should not be required ok 264 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" type should be "conflict" ok 265 - Should not have got project from "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 266 - Should have project "depend" for "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 267 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should not be external ok 268 - "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should be internal ok 269 - Should not have got ID from "!9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 270 - Construct "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 271 - Constructed should stringify as "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 272 - Constructed should have key name "9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 273 - Constructed should plan stringify as "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 274 - Parse "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 275 - Parsed should plan stringify as "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 276 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should be required ok 277 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should not be conflicting ok 278 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" type should be "require" ok 279 - Should have got project from "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 280 - Should have project "foo" for "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 281 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should be external ok 282 - "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" should not be internal ok 283 - Should not have got ID from "foo:9ed961ad7902a67fe0804c8e49e8993719fd5065@what" ok 284 - Should fail to parse "foo bar" ok 285 - Should fail to parse "foo+@bar" ok 286 - Should fail to parse "foo:+bar" ok 287 - Should fail to parse "foo@bar+" ok 288 - Should fail to parse "proj:foo@bar+" ok 289 - Should get exception for no change or tag ok 290 - No change or tag error ident should be "DEV" ok 291 - No change or tag error message should be correct ok 292 - Should get an error for ID + change ok 293 - ID + change error ident ident should be "DEV" ok 294 - ID + change error message should be correct ok 295 - Should get an error for ID + tag ok 296 - ID + tag error ident ident should be "DEV" ok 297 - ID + tag error message should be correct ok 298 - Should get an error for ID + change and tag ok 299 - ID + change and tag error ident ident should be "DEV" ok 300 - ID + change and tag error message should be correct ok 301 - Create "roles" dependency ok 302 - Should find the "roles" ID in the plan ok 303 - The "roles" change should not be external ok 304 - The "roles" change should be internal ok 305 - Create "elsewhere:roles" dependency ok 306 - The "elsewhere:roles" id should be undef ok 307 - The "elsewhere:roles" change should be external ok 308 - The "elsewhere:roles" change should not be internal ok 309 - Create depend using external ID ok 310 - The external ID should be set ok 311 - The external ID should register as external ok 312 - The external ID should not register as internal ok 313 - Create depend using "roles" ID ok 314 - The "roles" ID should be set ok 315 - The "roles" ID should not register as external ok 316 - The "roles" ID should register as internal ok 317 - Create "nonexistent" dependency ok 318 - Should get error for nonexistent change ok 319 - Nonexistent change error ident should be "plan" ok 320 - Nonexistent change error message should be correct ok 321 - Create depend without ID ok 322 - Resolved ID should be undef ok 323 - Set resolved ID ok 324 - Resolved ID should be set ok 325 - Unset resolved ID ok 326 - Resolved ID should be undef again ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Useless use of array element in void context at (eval 197) line 77. Useless use of array element in void context at (eval 197) line 438. Useless use of array element in void context at (eval 197) line 515. Useless use of array element in void context at (eval 203) line 152. Useless use of array element in void context at (eval 216) line 43. Useless use of array element in void context at (eval 217) line 71. Useless use of array element in void context at (eval 217) line 107. Useless use of array element in void context at (eval 217) line 256. Useless use of array element in void context at (eval 218) line 43. Useless use of array element in void context at (eval 222) line 298, line 1. Useless use of array element in void context at (eval 223) line 262, line 2. Useless use of array element in void context at (eval 234) line 597, line 3. Useless use of array element in void context at (eval 234) line 633, line 3. Useless use of array element in void context at (eval 234) line 906, line 3. Useless use of hash element in void context at (eval 234) line 646, line 3. Useless use of array element in void context at (eval 235) line 61, line 5. Useless use of array element in void context at (eval 235) line 441, line 5. Useless use of array element in void context at (eval 235) line 637, line 5. Useless use of array element in void context at (eval 253) line 379. Useless use of array element in void context at (eval 253) line 456. Useless use of array element in void context at (eval 253) line 528. t/deploy.t .......... ok 1 - require App::Sqitch::Command::deploy; ok 2 - The class (or class-like) 'App::Sqitch::Command::deploy' isa 'App::Sqitch::Command' ok 3 - App::Sqitch::Command::deploy->can(...) ok 4 - Options should be correct ok 5 - Should have default configuration with no config or opts ok 6 - Should have mode, verify, set, and log-only options ok 7 - Should have mode and verify configuration ok 8 - Should have merged variables ok 9 - An object of class 'App::Sqitch::Command::deploy' isa 'App::Sqitch::Command::deploy' ok 10 - Should pick up variables from configuration ok 11 - 'new deploy with target' isa 'App::Sqitch::Command::deploy' ok 12 - Should have target "foo" ok 13 - An object of class 'App::Sqitch::Command::deploy' isa 'App::Sqitch::Command::deploy' ok 14 - Should have undef default target ok 15 - to_change should be undef ok 16 - mode should be "all" ok 17 - Execute to "@alpha" ok 18 - "@alpha" "all", and 0 should be passed to the engine ok 19 - The engine should not be set log_only ok 20 - Should have no warnings ok 21 - Execute ok 22 - undef and "all" should be passed to the engine ok 23 - Should have no warnings ok 24 - Execute with change ok 25 - "widgets" and "all" should be passed to the engine ok 26 - Should have no warnings ok 27 - Execute with target ok 28 - undef and "all" should be passed to the engine ok 29 - The engine should know the target ok 30 - Should have no warnings ok 31 - Execute with change and target ok 32 - "widgets" and "all" should be passed to the engine ok 33 - The engine should know the target ok 34 - Should have no warnings ok 35 - Execute with target and change ok 36 - "widgets" and "all" should be passed to the engine ok 37 - The engine should know the target ok 38 - Should have no warnings ok 39 - 'Object with to, mode, log_only, and variables' isa 'App::Sqitch::Command::deploy' ok 40 - Execute again ok 41 - Engine should verify ok 42 - The engine should be set log_only ok 43 - "foo", "tag", and 1 should be passed to the engine ok 44 - Vars should have been passed through to the engine ok 45 - The engine should have the target option ok 46 - Should have no warnings ok 47 - Execute with change ok 48 - Engine should verify ok 49 - The engine should be set log_only ok 50 - "foo", "tag", and 1 should be passed to the engine ok 51 - Vars should have been passed through to the engine ok 52 - Should have too many changes warning ok 53 - Execute with target again ok 54 - Engine should verify ok 55 - The engine should be set log_only ok 56 - "foo", "tag", and 1 should be passed to the engine ok 57 - Vars should have been passed through to the engine ok 58 - The engine should have the target option ok 59 - Should have warning about too many targets ok 60 - "all" should be a valid mode ok 61 - "tag" should be a valid mode ok 62 - "change" should be a valid mode ok 63 - "foo" should not be a valid mode ok 64 - "bad" should not be a valid mode ok 65 - "gar" should not be a valid mode ok 66 - Should get an exception for unknown arg ok 67 - Unknow arg ident should be "deploy" ok 68 - Should get an exeption for two unknown arg ok 69 - Should get an exception for unknown args ok 70 - Unknow args ident should be "deploy" ok 71 - Should get an exeption for two unknown args 1..71 ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 42 warning(s) # Previous test 2 'App::Sqitch::Engine->can(...)' # Subroutine seen redefined at (eval 211) line 2. # at (eval 211) line 2. # eval 'package App::Sqitch::Engine::whu; # sub seen { # my $ret; # if (wantarray) { # $ret = [$$wrapped->(@_)]; # Internals::SvREADONLY(@$ret, 1); # } # elsif (defined wantarray) { # $ret = \\($$wrapped->(@_)); # } # else { # $$wrapped->(@_); # } # # for my $method (@$after) { # $method->(@_); # } # # wantarray ? @$ret : $ret ? $$ret : (); # } # ;' called at /export/home/fly1464/var/megalib/Class/Method/Modifiers.pm line 152 # Class::Method::Modifiers::install_modifier("App::Sqitch::Engine::whu", "after", "seen") called at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 36 # Moo::_Utils::_install_modifier("App::Sqitch::Engine::whu", "after", "seen", CODE(0x101df4230)) called at /export/home/fly1464/var/megalib/Moo.pm line 63 # Moo::after("seen", CODE(0x101df4230)) called at t/engine.t line 89 # # ---------- # Previous test 2 'App::Sqitch::Engine->can(...)' # Useless use of array element in void context at (eval 212) line 77. # at (eval 212) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010544f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f0d228)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004691b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "_engine", "sqlite", "db_name", "mydb", "top_dir", Path::Class::Dir=HASH(0x100b800f8), "plan_file", Path::Class::File=HASH(0x101f0cee0), ...) called at t/engine.t line 94 # # ---------- # Previous test 2 'App::Sqitch::Engine->can(...)' # Useless use of array element in void context at (eval 212) line 438. # at (eval 212) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010544f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f0d228)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004691b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "_engine", "sqlite", "db_name", "mydb", "top_dir", Path::Class::Dir=HASH(0x100b800f8), "plan_file", Path::Class::File=HASH(0x101f0cee0), ...) called at t/engine.t line 94 # # ---------- # Previous test 2 'App::Sqitch::Engine->can(...)' # Useless use of array element in void context at (eval 212) line 515. # at (eval 212) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010544f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f0d228)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004691b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "_engine", "sqlite", "db_name", "mydb", "top_dir", Path::Class::Dir=HASH(0x100b800f8), "plan_file", Path::Class::File=HASH(0x101f0cee0), ...) called at t/engine.t line 94 # # ---------- # Previous test 3 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 214) line 307. # at (eval 214) line 307. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::new() called at t/engine.t line 105 # Test::Exception::throws_ok() called at t/engine.t line 106 # # ---------- # Previous test 3 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 214) line 384. # at (eval 214) line 384. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::new() called at t/engine.t line 105 # Test::Exception::throws_ok() called at t/engine.t line 106 # # ---------- # Previous test 3 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 214) line 420. # at (eval 214) line 420. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::new() called at t/engine.t line 105 # Test::Exception::throws_ok() called at t/engine.t line 106 # # ---------- # Previous test 7 'An object of class 'App::Sqitch::Engine' isa 'App::Sqitch::Engine'' # Useless use of array element in void context at (eval 216) line 307. # at (eval 216) line 307. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::whu::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::whu") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::whu::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::whu::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101f21d90)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020b0c38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101f1fe38)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::whu::new("App::Sqitch::Engine::whu", HASH(0x101f568a8)) called at (eval 214) line 28 # App::Sqitch::Engine::new("App::Sqitch::Engine::whu", HASH(0x101f568a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101f568a8)) called at t/engine.t line 120 # # ---------- # Previous test 7 'An object of class 'App::Sqitch::Engine' isa 'App::Sqitch::Engine'' # Useless use of array element in void context at (eval 216) line 384. # at (eval 216) line 384. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::whu::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::whu") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::whu::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::whu::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101f21d90)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020b0c38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101f1fe38)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::whu::new("App::Sqitch::Engine::whu", HASH(0x101f568a8)) called at (eval 214) line 28 # App::Sqitch::Engine::new("App::Sqitch::Engine::whu", HASH(0x101f568a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101f568a8)) called at t/engine.t line 120 # # ---------- # Previous test 7 'An object of class 'App::Sqitch::Engine' isa 'App::Sqitch::Engine'' # Useless use of array element in void context at (eval 216) line 420. # at (eval 216) line 420. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::whu::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::whu") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::whu::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::whu::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101f21d90)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020b0c38)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101f1fe38)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::whu::new("App::Sqitch::Engine::whu", HASH(0x101f568a8)) called at (eval 214) line 28 # App::Sqitch::Engine::new("App::Sqitch::Engine::whu", HASH(0x101f568a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101f568a8)) called at t/engine.t line 120 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 254) line 189. # at (eval 254) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1020d72f8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10219e788)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021df1b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 254) line 379. # at (eval 254) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1020d72f8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10219e788)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021df1b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 254) line 456. # at (eval 254) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1020d72f8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10219e788)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021df1b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 254) line 492. # at (eval 254) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1020d72f8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10219e788)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021df1b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 254) line 528. # at (eval 254) line 528. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1020d72f8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10219e788)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1021df1b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 265) line 43. # at (eval 265) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10220cdf8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a4da0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a4da0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x101c2ae88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x102516810)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x10219e668), HASH(0x101d63708)) called at (eval 254) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 266) line 71. # at (eval 266) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x102515d48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10250ac30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149c310)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101c2ae88)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x1013646a8), "sqitch", App::Sqitch=HASH(0x101c2ae88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101c2ae88)) called at (eval 265) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101c2ae88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x102516810)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x10219e668), HASH(0x101d63708)) called at (eval 254) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 266) line 107. # at (eval 266) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x102515d48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10250ac30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149c310)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101c2ae88)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x1013646a8), "sqitch", App::Sqitch=HASH(0x101c2ae88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101c2ae88)) called at (eval 265) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101c2ae88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x102516810)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x10219e668), HASH(0x101d63708)) called at (eval 254) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 41 'Target should be the URI stringified' # Useless use of array element in void context at (eval 266) line 256. # at (eval 266) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x102515d48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10250ac30)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149c310)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101c2ae88)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x1013646a8), "sqitch", App::Sqitch=HASH(0x101c2ae88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101c2ae88)) called at (eval 265) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101c2ae88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x102516810)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x10219e668), HASH(0x101d63708)) called at (eval 254) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x10219e230)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x10219e230)) called at t/engine.t line 218 # # ---------- # Previous test 79 'App::Sqitch::Engine->can('_load_changes')' # Useless use of array element in void context at (eval 283) line 40. # at (eval 283) line 40. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # (@_ > 1 # ? do { my $self = shift; # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $self->{"plan"} = $_[0]; # } # : exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # # ) } # $$_UNQUOTED = \\&App::Sqitch::Engine::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102504860)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101d54fe0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101d54fe0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::plan(App::Sqitch::Engine=HASH(0x1024c9d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 823 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88)) called at t/engine.t line 485 # # ---------- # Previous test 79 'App::Sqitch::Engine->can('_load_changes')' # Useless use of array element in void context at (eval 283) line 79. # at (eval 283) line 79. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # (@_ > 1 # ? do { my $self = shift; # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $self->{"plan"} = $_[0]; # } # : exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # # ) } # $$_UNQUOTED = \\&App::Sqitch::Engine::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102504860)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101d54fe0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101d54fe0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::plan(App::Sqitch::Engine=HASH(0x1024c9d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 823 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 284) line 597. # at (eval 284) line 597. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1024b2bc0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10249be10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015457b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "timestamp", App::Sqitch::DateTime=HASH(0x1024ca730), "project", "engine", "name", "howdy", "id", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 829 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 284) line 633. # at (eval 284) line 633. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1024b2bc0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10249be10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015457b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "timestamp", App::Sqitch::DateTime=HASH(0x1024ca730), "project", "engine", "name", "howdy", "id", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 829 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 284) line 906. # at (eval 284) line 906. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1024b2bc0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10249be10)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015457b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "timestamp", App::Sqitch::DateTime=HASH(0x1024ca730), "project", "engine", "name", "howdy", "id", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 829 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 285) line 43. # at (eval 285) line 43. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x1013ec4b0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014ad5d0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ad5d0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 587 # App::Sqitch::Plan::first_index_of(App::Sqitch::Plan=HASH(0x1024bd6e8), "howdy", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 849 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 848 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 287) line 298, line 1. # at (eval 287) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1024be540)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10253dcd0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101581400)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1024bd6e8), Path::Class::File=HASH(0x101f0cee0), IO::File=GLOB(0x1025308e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 268) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 285) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 587 # App::Sqitch::Plan::first_index_of(App::Sqitch::Plan=HASH(0x1024bd6e8), "howdy", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 849 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 848 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of hash element in void context at (eval 287) line 311, line 1. # at (eval 287) line 311, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1024be540)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10253dcd0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101581400)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1024bd6e8), Path::Class::File=HASH(0x101f0cee0), IO::File=GLOB(0x1025308e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 268) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 285) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 587 # App::Sqitch::Plan::first_index_of(App::Sqitch::Plan=HASH(0x1024bd6e8), "howdy", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 849 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 848 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 288) line 262, line 2. # at (eval 288) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102541618)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1026f79b8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101519bc0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "lspace", "", "note", "This is a note") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1024bd6e8), Path::Class::File=HASH(0x101f0cee0), IO::File=GLOB(0x1025308e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 268) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 285) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 587 # App::Sqitch::Plan::first_index_of(App::Sqitch::Plan=HASH(0x1024bd6e8), "howdy", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 849 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 848 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 290) line 61, line 8. # at (eval 290) line 61, line 8. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1026f93b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014c9410)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d5438)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", App::Sqitch::Plan::Change=HASH(0x1026fe868), "name", "foo", "rspace", " ", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1024bd6e8), Path::Class::File=HASH(0x101f0cee0), IO::File=GLOB(0x1025308e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 268) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 285) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 587 # App::Sqitch::Plan::first_index_of(App::Sqitch::Plan=HASH(0x1024bd6e8), "howdy", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 849 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 848 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 290) line 441, line 8. # at (eval 290) line 441, line 8. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1026f93b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014c9410)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d5438)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", App::Sqitch::Plan::Change=HASH(0x1026fe868), "name", "foo", "rspace", " ", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1024bd6e8), Path::Class::File=HASH(0x101f0cee0), IO::File=GLOB(0x1025308e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 268) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 285) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 587 # App::Sqitch::Plan::first_index_of(App::Sqitch::Plan=HASH(0x1024bd6e8), "howdy", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 849 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 848 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 81 'Should load changes with undef' # Useless use of array element in void context at (eval 290) line 637, line 8. # at (eval 290) line 637, line 8. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1026f93b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014c9410)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d5438)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", App::Sqitch::Plan::Change=HASH(0x1026fe868), "name", "foo", "rspace", " ", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1024bd6e8), Path::Class::File=HASH(0x101f0cee0), IO::File=GLOB(0x1025308e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 268) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at (eval 285) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 587 # App::Sqitch::Plan::first_index_of(App::Sqitch::Plan=HASH(0x1024bd6e8), "howdy", "c8a60f1a4fdab2cf91ee7f6da08f4ac52a732b4d") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 849 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 848 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024bdbf8)) called at t/engine.t line 485 # # ---------- # Previous test 83 'Should load changes with multiple hashes with no tags' # Useless use of array element in void context at (eval 306) line 43, line 13. # at (eval 306) line 43, line 13. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x102558208)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a5b80)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a5b80)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x101f21508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101f21508)) called at (eval 305) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x101f21508)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 105 # App::Sqitch::Plan::Tag::__ANON__(App::Sqitch::Plan::Tag=HASH(0x10280f848)) called at (eval 290) line 457 # App::Sqitch::Plan::Tag::new(undef, "name", "foo", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", App::Sqitch::Plan::Change=HASH(0x10280f308)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 834 # App::Sqitch::Engine::_load_changes(App::Sqitch::Engine=HASH(0x1024c9d88), HASH(0x1024b93f8)) called at t/engine.t line 485 # # ---------- # Previous test 89 'Should load changes with doubly reworked change' # Useless use of array element in void context at (eval 312) line 57, line 13. # at (eval 312) line 57, line 13. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102817250)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1024b92f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014f3fb8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", "you", "tag", "bar") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x1024bd6e8), "name", "you") called at t/engine.t line 492 # # ---------- # Previous test 89 'Should load changes with doubly reworked change' # Useless use of array element in void context at (eval 312) line 206, line 13. # at (eval 312) line 206, line 13. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102817250)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1024b92f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014f3fb8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", "you", "tag", "bar") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x1024bd6e8), "name", "you") called at t/engine.t line 492 # # ---------- # Previous test 89 'Should load changes with doubly reworked change' # Useless use of array element in void context at (eval 312) line 278, line 13. # at (eval 312) line 278, line 13. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102817250)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1024b92f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014f3fb8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", "you", "tag", "bar") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x1024bd6e8), "name", "you") called at t/engine.t line 492 # # ---------- # Previous test 89 'Should load changes with doubly reworked change' # Useless use of array element in void context at (eval 312) line 314, line 13. # at (eval 312) line 314, line 13. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102817250)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1024b92f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014f3fb8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", "you", "tag", "bar") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x1024bd6e8), "name", "you") called at t/engine.t line 492 # # ---------- # Previous test 89 'Should load changes with doubly reworked change' # Useless use of array element in void context at (eval 312) line 350, line 13. # at (eval 312) line 350, line 13. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102817250)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1024b92f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014f3fb8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", "you", "tag", "bar") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x1024bd6e8), "name", "you") called at t/engine.t line 492 # # ---------- # Previous test 89 'Should load changes with doubly reworked change' # Useless use of array element in void context at (eval 312) line 386, line 13. # at (eval 312) line 386, line 13. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102817250)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1024b92f0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014f3fb8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x1024bd6e8), "change", "you", "tag", "bar") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x1024bd6e8), "name", "you") called at t/engine.t line 492 # # ---------- # Previous test 89 'Should load changes with doubly reworked change' # Useless use of array element in void context at (eval 313) line 43, line 13. # at (eval 313) line 43, line 13. # eval '{ # my $default_for_project = ${$_[1]->{"\\$default_for_project"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::project { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "project is a read-only accessor" if @_ > 1; # exists $_[0]->{"project"} ? # $_[0]->{"project"} # : do { # my $value = $default_for_project->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"project"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::project # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_project = \${\$_[1]->{\"\\\$default_for_projec"..., HASH(0x1024b3a60)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101512840)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101512840)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::project(App::Sqitch::Plan::Depend=HASH(0x1024b90e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 856 # App::Sqitch::Plan::_check_dependencies(App::Sqitch::Plan=HASH(0x1024bd6e8), App::Sqitch::Plan::Change=HASH(0x1024b92d8), "rework") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 842 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x1024bd6e8), "name", "you") called at t/engine.t line 492 # # ---------- # Previous test 89 'Should load changes with doubly reworked change' # Useless use of array element in void context at (eval 314) line 43, line 13. # at (eval 314) line 43, line 13. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5flines = ${$_[1]->{"\\$default_for__5flines"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_lines { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_lines is a read-only accessor" if @_ > 1; # exists $_[0]->{"_lines"} ? # $_[0]->{"_lines"} # : do { # my $value = $default_for__5flines->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_lines"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_lines # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1028ecd38)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014ad300)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ad300)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x1024bd6e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 847 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x1024bd6e8), "name", "you") called at t/engine.t line 492 # # ---------- # Previous test 412 'App::Sqitch::Engine->can('change_id_for_depend')' # Useless use of array element in void context at (eval 393) line 43. # at (eval 393) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_id = ${$_[1]->{"\\$default_for_id"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::id { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "id is a read-only accessor" if @_ > 1; # exists $_[0]->{"id"} ? # $_[0]->{"id"} # : do { # my $value = $default_for_id->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"id"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::id # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::id() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 769 # App::Sqitch::Engine::change_id_for_depend() called at t/engine.t line 1970 # Test::Exception::throws_ok() called at t/engine.t line 1970 # # ---------- # Previous test 436 'Should have called are_deployed_changes' # Useless use of array element in void context at (eval 401) line 39. # at (eval 401) line 39. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::resolved_id { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # (@_ > 1 # ? do { my $self = shift; # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $self->{"resolved_id"} = $_[0]; # } # : $_[0]->{"resolved_id"} # ) } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::resolved_id # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1028f51c0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014f7eb0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014f7eb0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::resolved_id(App::Sqitch::Plan::Depend=HASH(0x10297f618), "25cfff05d28c898f5c37263e2559fe75e239003c") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 690 # App::Sqitch::Engine::check_deploy_dependencies(App::Sqitch::Engine::whu=HASH(0x10292b258), App::Sqitch::Plan=HASH(0x1028edc48)) called at t/engine.t line 2079 # # Looks like you failed 1 test of 598. t/engine.t .......... 1..598 ok 1 - use App::Sqitch::Engine; ok 2 - App::Sqitch::Engine->can(...) ok 3 - Load a sqitch sqitch object ok 4 - Should get an exception for missing sqitch param ok 5 - Should get an exception for array sqitch param ok 6 - Should get an exception for string sqitch param ok 7 - An object of class 'App::Sqitch::Engine' isa 'App::Sqitch::Engine' ok 8 - Load a "whu" engine ok 9 - An object of class 'App::Sqitch::Engine::whu' isa 'App::Sqitch::Engine::whu' ok 10 - The sqitch attribute should be set ok 11 - Should die on invalid engine ok 12 - Should get load error message ok 13 - Should have relevant previoius exception ok 14 - No engine should die ok 15 - It should be the expected message ok 16 - Should die on bad engine module ok 17 - Should get another load error message ok 18 - Should have relevant previoius exception from the bad module ok 19 - App::Sqitch::Engine->can('name') ok 20 - Create a App::Sqitch::Engine object ok 21 - Should get error from base engine name ok 22 - Name error ident should be "engine" ok 23 - Name error message should be correct ok 24 - Create a subclass name object ok 25 - Subclass oject name should be "whu" ok 26 - Subclass class name should be "whu" ok 27 - App::Sqitch::Engine->can('config_vars') ok 28 - Should have database and client in engine base class ok 29 - App::Sqitch::Engine->can(...) ok 30 - Should have no variables ok 31 - Add a variable ok 32 - Should have the variable ok 33 - Set more variables ok 34 - Should have all of the variables ok 35 - Should again have no variables ok 36 - Load engine ok 37 - Target should be as passed ok 38 - Load engine ok 39 - Target should be URI string ok 40 - Load engine with URI with password ok 41 - Target should be the URI stringified ok 42 - Load engine ok 43 - Target should be read from config ok 44 - Load engine with URI ok 45 - Target should still be "devdb" ok 46 - Load engine ok 47 - Destination should be URI string ok 48 - Rgistry destination should be the same as destination ok 49 - Load engine with URI with password ok 50 - Destination should not include password ok 51 - Meta destination should again be the same as destination ok 52 - Create a App::Sqitch::Engine object again ok 53 - Should get an unimplemented exception from initialized() ok 54 - Should get an unimplemented exception from initialize() ok 55 - Should get an unimplemented exception from register_project() ok 56 - Should get an unimplemented exception from run_file() ok 57 - Should get an unimplemented exception from run_handle() ok 58 - Should get an unimplemented exception from log_deploy_change() ok 59 - Should get an unimplemented exception from log_fail_change() ok 60 - Should get an unimplemented exception from log_revert_change() ok 61 - Should get an unimplemented exception from log_new_tags() ok 62 - Should get an unimplemented exception from is_deployed_tag() ok 63 - Should get an unimplemented exception from is_deployed_change() ok 64 - Should get an unimplemented exception from are_deployed_changes() ok 65 - Should get an unimplemented exception from change_id_for() ok 66 - Should get an unimplemented exception from changes_requiring_change() ok 67 - Should get an unimplemented exception from earliest_change_id() ok 68 - Should get an unimplemented exception from latest_change_id() ok 69 - Should get an unimplemented exception from deployed_changes() ok 70 - Should get an unimplemented exception from deployed_changes_since() ok 71 - Should get an unimplemented exception from load_change() ok 72 - Should get an unimplemented exception from name_for_change_id() ok 73 - Should get an unimplemented exception from current_state() ok 74 - Should get an unimplemented exception from current_changes() ok 75 - Should get an unimplemented exception from current_tags() ok 76 - Should get an unimplemented exception from search_events() ok 77 - Should get an unimplemented exception from registered_projects() ok 78 - Should get an unimplemented exception from change_offset_from_id() ok 79 - App::Sqitch::Engine->can('_load_changes') ok 80 - Should load changes with no change ok 81 - Should load changes with undef ok 82 - Should load changes with no tags ok 83 - Should load changes with multiple hashes with no tags ok 84 - Should load changes with tags ok 85 - Should load changes with tags with leading @ ok 86 - Should load changes with multiple hashes with tags ok 87 - Should load changes with reworked change ok 88 - Should load changes with reworked change & multiple tags ok 89 - Should load changes with doubly reworked change ok 90 - Rework change "you" ok 91 - Tag @beta1 ok 92 - Should load changes with Unplanned change ok 93 - Should load changes with reworked change without reworked version deployed ok 94 - Should load changes with reworked change with reworked version deployed ok 95 - Create a subclass name object again ok 96 - App::Sqitch::Engine::whu->can(...) ok 97 - Deploy a change ok 98 - deploy_change should have called the proper methods ok 99 - Output should reflect the deployment ok 100 - Output should reflect success ok 101 - Only log a change ok 102 - log-only deploy_change should not have called run_file ok 103 - Output should reflect the logging ok 104 - Output should reflect deploy success ok 105 - Enable verification ok 106 - Deploy a change to be verified ok 107 - deploy_change with verification should run the verify file ok 108 - Output should reflect the logging ok 109 - Output should reflect deploy success ok 110 - Enable log_only ok 111 - Verify and log a change ok 112 - deploy_change with verification and log-only should not run deploy ok 113 - Output should reflect the logging ok 114 - Output should reflect deploy success ok 115 - Deploy change with error ok 116 - Error should be from run_file ok 117 - Should have logged change failure ok 118 - Output should reflect the deployment, even with failure ok 119 - Output should reflect deploy failure ok 120 - Deploy change with failed verification ok 121 - Error should be from deploy_change ok 122 - Should have logged verify failure ok 123 - Output should reflect the deployment, even with verify failure ok 124 - Output should reflect deploy failure ok 125 - Verify error should have been vented ok 126 - Enable log_only ok 127 - Deploy change with log-only and failed verification ok 128 - Error should be from deploy_change ok 129 - Should have logged verify failure but not reverted ok 130 - Output should reflect the deployment, even with verify failure ok 131 - Output should reflect deploy failure ok 132 - Verify error should have been vented ok 133 - Deploy a change with no verify script ok 134 - deploy_change with no verify file should not run it ok 135 - Output should reflect the logging ok 136 - Output should reflect deploy success ok 137 - A warning about no verify file should have been emitted ok 138 - Revert a change ok 139 - revert_change should have called the proper methods ok 140 - Output should reflect reversion ok 141 - Output should acknowldge revert success ok 142 - Enable log_only ok 143 - Revert a change with log-only ok 144 - Log-only revert_change should not have run the change script ok 145 - Output should reflect logged reversion ok 146 - Output should acknowldge revert success ok 147 - Engine with sqitch with plan file ok 148 - Should get proper change from latest_change() ok 149 - Latest change ID should have been called with no arg ok 150 - Should again get proper change from latest_change() ok 151 - Latest change ID should have been called with offset arg ok 152 - Should get proper change from earliest_change() ok 153 - Earliest change ID should have been called with no arg ok 154 - Should again get proper change from earliest_change() ok 155 - Earliest change ID should have been called with offset arg ok 156 - App::Sqitch::Engine->can('_sync_plan') ok 157 - Plan should start at position -1 ok 158 - start_at should be undef ok 159 - Sync the plan ok 160 - Plan should still be at position -1 ok 161 - start_at should still be undef ok 162 - Should not have updated IDs ok 163 - Sync the plan again ok 164 - Plan should again be at position -1 ok 165 - start_at should again be undef ok 166 - Still should not have updated IDs ok 167 - Sync the plan to a tag ok 168 - Plan should now be at position 1 ok 169 - start_at should now be widgets@beta ok 170 - Should have updated IDs ok 171 - App::Sqitch::Engine->can('deploy') ok 172 - Deploy to @alpha ok 173 - Plan should be at position 1 ok 174 - Should have deployed through @alpha ok 175 - Should have called _deploy_all() ok 176 - Should have seen the output of the deploy to @alpha ok 177 - Both change names should be output ok 178 - Enable log_only ok 179 - Log-only deploy in $mode mode to @alpha ok 180 - Plan should be at position 1 ok 181 - Should have deployed through @alpha without running files ok 182 - Should have called _deploy_by_change() ok 183 - Should have seen the output of the deploy to @alpha ok 184 - Both change names should be output ok 185 - Enable log_only ok 186 - Log-only deploy in $mode mode to @alpha ok 187 - Plan should be at position 1 ok 188 - Should have deployed through @alpha without running files ok 189 - Should have called _deploy_by_tag() ok 190 - Should have seen the output of the deploy to @alpha ok 191 - Both change names should be output ok 192 - Enable log_only ok 193 - Log-only deploy in $mode mode to @alpha ok 194 - Plan should be at position 1 ok 195 - Should have deployed through @alpha without running files ok 196 - Should have called _deploy_all() ok 197 - Should have seen the output of the deploy to @alpha ok 198 - Both change names should be output ok 199 - Deploy to @alpha with tag mode ok 200 - Plan should again be at position 1 ok 201 - Should have deployed through @alpha without initialization ok 202 - Should have called _deploy_by_tag() ok 203 - Should have seen the output of the deploy to @alpha ok 204 - Both change names should be output ok 205 - Should get an error for an unknown change ok 206 - The exception should report the unknown change ok 207 - Only latest_item() should have been called ok 208 - Deploy to alpha thrice ok 209 - Only latest_item() should have been called ok 210 - Should notify user that already at @alpha ok 211 - Should fail changeing older change ok 212 - Should be a "deploy" error ok 213 - It should suggest using "revert" ok 214 - Should have called latest_item() and latest_tag() ok 215 - Deploy everything by change ok 216 - Plan should be at position 3 ok 217 - Should have deployed everything ok 218 - Should have called _deploy_by_change() ok 219 - Should have emitted deploy announcement and successes ok 220 - Should have seen the output of the deploy to the end ok 221 - Should return success for deploy to up-to-date DB ok 222 - Should have emitted deploy announcement and successes ok 223 - It should have just fetched the latest change ID ok 224 - Should fail on invalid mode ok 225 - Should be a "deploy" error ok 226 - And the message should reflect the unknown mode ok 227 - It should have check for initialization ok 228 - Should have announced destination ok 229 - Engine with sqitch with no file ok 230 - Should die with no changes ok 231 - Should have the localized message ok 232 - It should have checked for the latest item ok 233 - Deploy changewise to index 1 ok 234 - Should changewise deploy to index 2 ok 235 - Should have seen output of each change ok 236 - Output should reflect deploy successes ok 237 - Deploy changewise to index 2 ok 238 - Should changewise deploy to from index 2 to index 3 ok 239 - Should have seen output of changes 2-3 ok 240 - Output should reflect deploy successes ok 241 - Die in _deploy_by_change ok 242 - It should have died in run_file ok 243 - It should have logged the failure ok 244 - Should have seen output for first change ok 245 - Output should reflect deploy failure ok 246 - Deploy tagwise to index 1 ok 247 - Should tagwise deploy to index 1 ok 248 - Should have seen output of each change ok 249 - Output should reflect deploy successes ok 250 - Deploy tagwise to index 3 ok 251 - Should tagwise deploy from index 2 to index 3 ok 252 - Should have seen output of changes 3-3 ok 253 - Output should reflect deploy successes ok 254 - Die in log_deploy_change ok 255 - Should get final deploy failure message ok 256 - It should have reverted back to the last deployed tag ok 257 - Should have seen deploy and revert messages (excluding curry revert) ok 258 - Output should reflect deploy successes and failure ok 259 - The original error should have been vented ok 260 - Enable log_only ok 261 - Die in log_deploy_change log-only ok 262 - Should get final deploy failure message ok 263 - It should have run no deploy or revert scripts ok 264 - Should have seen deploy and revert messages (excluding curry revert) ok 265 - Output should reflect deploy successes and failure ok 266 - The original error should have been vented ok 267 - Die in _deploy_by_tag again ok 268 - Should again get final deploy failure message ok 269 - Should have logged back to the beginning ok 270 - Should have seen deploy and revert messages ok 271 - Output should reflect deploy successes and failure ok 272 - Should have one vented message ok 273 - And it should be the underlying error ok 274 - And it should had notified that all changes were reverted ok 275 - Die in _deploy_by_tag yet again ok 276 - Should die "Deploy failed" again ok 277 - Should have reverted back to last tag ok 278 - Should have user change reversion messages ok 279 - Output should reflect deploy successes and failure ok 280 - Should see underlying error and reversion message ok 281 - Die in _deploy_by_tag again ok 282 - Should once again get final deploy failure message ok 283 - Should have tried to revert one change ok 284 - Should have seen revert message ok 285 - Output should reflect deploy successes and failure ok 286 - Should get reversion failure message ok 287 - Deploy all to index 1 ok 288 - Should tagwise deploy to index 1 ok 289 - Should have seen output of each change ok 290 - Output should reflect deploy successes ok 291 - Deploy tagwise to index 2 ok 292 - Should tagwise deploy to from index 1 to index 2 ok 293 - Should have seen output of changes 3-4 ok 294 - Output should reflect deploy successe ok 295 - Die in _deploy_all ok 296 - Should get final deploy failure message ok 297 - It should have logged up to the failure ok 298 - Should have seen deploy and revert messages excluding revert for failed logging ok 299 - Output should reflect deploy successes and failures ok 300 - The original error should have been vented ok 301 - Enable log_only ok 302 - Die in log-only _deploy_all ok 303 - Should get final deploy failure message ok 304 - It should have run no deploys or reverts ok 305 - Should have seen deploy and revert messages excluding revert for failed logging ok 306 - Output should reflect deploy successes and failures ok 307 - The original error should have been vented ok 308 - Die in _deploy_all again ok 309 - Should again get final deploy failure message ok 310 - Should have reveted all changes and tags ok 311 - Should see all changes revert ok 312 - Output should reflect deploy successes and failures ok 313 - Should notifiy user of error and rollback ok 314 - Die in _deploy_all on the last change ok 315 - Should once again get final deploy failure message ok 316 - Should have deployed to dr_evil and revered down to @alpha ok 317 - Should see changes revert back to @alpha ok 318 - Output should reflect deploy successes and failures ok 319 - Should notifiy user of error and rollback to @alpha ok 320 - Test is_deployed(tag) ok 321 - It should have called is_deployed_tag() ok 322 - Test is_deployed(change) ok 323 - It should have called is_deployed_change() ok 324 - App::Sqitch::Engine::whu->can('deploy_change') ok 325 - Deploy a change ok 326 - It should have been deployed ok 327 - Should have shown change name ok 328 - Output should reflect deploy success ok 329 - Shuld die on deploy failure ok 330 - Should be told the deploy failed ok 331 - It should failed to have been deployed ok 332 - Should have vented the original error ok 333 - Should have shown change name ok 334 - Output should reflect deploy failure ok 335 - App::Sqitch::Engine::whu->can('revert_change') ok 336 - Revert the change ok 337 - It should have been reverted ok 338 - Should have shown reverted change name ok 339 - And the revert failure should be "ok" ok 340 - App::Sqitch::Engine::whu->can('revert') ok 341 - Should get exception for no changes to revert ok 342 - Should be a revert exception ok 343 - Should have notified that there is nothing to revert ok 344 - Exit val should be 1 ok 345 - It should only have called deployed_changes() ok 346 - Nothing should have been output ok 347 - Revert should die on unknown change ok 348 - Should be another "revert" error ok 349 - The message should mention it is an unknown change ok 350 - Should have called change_id_for() with change name ok 351 - Nothing should have been output ok 352 - Revert should die on unknown change ID ok 353 - Should be another "revert" error ok 354 - The message should mention it is an unknown change ok 355 - Shoudl have called change_id_for() with change ID ok 356 - Nothing should have been output ok 357 - Revert should die on undeployed change ok 358 - Should be another "revert" error ok 359 - The message should mention that the change is not deployed ok 360 - change_id_for ok 361 - Nothing should have been output ok 362 - Should get error reverting when no subsequent changes ok 363 - No subsequent change error ident should be "revert" ok 364 - No subsequent change error exitval should be 1 ok 365 - No subsequent change error message should be correct ok 366 - Should have called change_id_for and deployed_changes_since ok 367 - Should get error for known but undeployed change ok 368 - No changes error should be "revert" ok 369 - No changes exitval should be 1 ok 370 - No changes message should be correct ok 371 - Should have called deployed_changes ok 372 - Revert all changes ok 373 - Should have reverted the changes in reverse order ok 374 - Should have prompted to revert all changes ok 375 - It should have said it was reverting all changes and listed them ok 376 - And the revert successes should be emitted ok 377 - Enable log_only ok 378 - Revert all changes log-only ok 379 - Log-only Should have reverted the changes in reverse order ok 380 - Log-only should have prompted to revert all changes ok 381 - It should have said it was reverting all changes and listed them ok 382 - And the revert successes should be emitted ok 383 - Should abort declined revert ok 384 - Declined revert ident should be "revert" ok 385 - Should have exited with value 1 ok 386 - Should have exited with proper message ok 387 - Should have called deployed_changes only ok 388 - Should have prompt to revert all changes ok 389 - It should have emitted nothing else ok 390 - Revert all changes with no prompt ok 391 - Should have reverted the changes in reverse order ok 392 - Should have no prompt ok 393 - It should have said it was reverting all changes and listed them ok 394 - And the revert successes should be emitted ok 395 - Revert to @alpha ok 396 - Should have reverted only changes after @alpha ok 397 - Should have prompt to revert to change ok 398 - Output should show what it reverts to ok 399 - And the revert successes should be emitted ok 400 - Should abort declined revert to @alpha ok 401 - Declined revert ident should be "revert:confirm" ok 402 - Should have exited with value 1 ok 403 - Should have exited with proper message ok 404 - Should have called revert methods ok 405 - Should have prompt to revert to @alpha ok 406 - It should have emitted nothing else ok 407 - Revert to @HEAD^ ok 408 - Should have reverted one changes for @HEAD^ ok 409 - Should have no prompt ok 410 - Output should show what it reverts to ok 411 - And the header and "ok" should be emitted ok 412 - App::Sqitch::Engine->can('change_id_for_depend') ok 413 - Should get error from change_id_for_depend when change not in plan ok 414 - Should get ident "plan" from change_id_for_depend ok 415 - Should have proper message from change_id_for_depend error ok 416 - Should get error from change_id_for_depend when no ID ok 417 - Should get ident "engine" when no ID ok 418 - Should have proper messag from change_id_for_depend error ok 419 - Get a change id ok 420 - Should have passed dependency params to change_id_for() ok 421 - App::Sqitch::Engine->can('find_change') ok 422 - find_change() should work ok 423 - Its parameters should have been passed to change_id_for and change_offset_from_id ok 424 - find_change() should work ok 425 - Project and offset should have been passed off ok 426 - App::Sqitch::Engine->can('verify_change') ok 427 - Verify a change ok 428 - The change file should have been run ok 429 - Should have no info output ok 430 - Verify a change with no verify script. ok 431 - No abstract methods should be called ok 432 - Should have no info output ok 433 - A warning about no verify file should have been emitted ok 434 - App::Sqitch::Engine::whu->can('check_deploy_dependencies') ok 435 - All planned changes should be okay ok 436 - Should have called are_deployed_changes ok 437 - Dependencies should check out even when within those to be deployed ok 438 - Resolved ID should be populated ok 439 - Conflict should throw exception ok 440 - Should be a "deploy" error ok 441 - Should have localized message about the local conflict ok 442 - Conflict should throw exception ok 443 - Should be a "deploy" error ok 444 - Should have localized message about conflicts ok 445 - Should have called change_id_for() twice ok 446 - Conflicting dependencies should have no resolved IDs ok 447 - Conflict should throw another exception ok 448 - Should be a "deploy" error ok 449 - Should have localized message about all three conflicts ok 450 - Should have called change_id_for() twice ok 451 - Conflicting dependencies should have no resolved IDs ok 452 - Missing dependencies should throw exception ok 453 - Should be another "deploy" error ok 454 - Should have localized message missing dependencies ok 455 - Should have called check_requires ok 456 - Missing requirements should not have resolved ok 457 - Missing dependencies should throw exception ok 458 - Should be another "deploy" error ok 459 - Should have localized conflicts and required error messages ok 460 - Should have called check_requires ok 461 - Missing requirements should not have resolved ok 462 - App::Sqitch::Engine::whu->can('check_revert_dependencies') ok 463 - Should get error reverting change another depend on ok 464 - Dependent error ident should be "revert" ok 465 - Dependent error message should be correct ok 466 - It should have check for requiring changes ok 467 - Should get error reverting change others depend on ok 468 - Dependent error ident should be "revert" ok 469 - Dependent error message should be correct ok 470 - It should have check for requiring changes ok 471 - Should get error reverting change others depend on ok 472 - Dependent error ident should be "revert" ok 473 - Dependent error message should be correct ok 474 - It should have checked twice for requiring changes ok 475 - App::Sqitch::Engine::whu->can('_trim_to') ok 476 - _trim_to should complain about a nonexistent change key ok 477 - _trim_to nonexistent key error ident should be "foo" ok 478 - _trim_to nonexistent key error message should be correct ok 479 - _trim_to should complain about an undeployed change key ok 480 - _trim_to undeployed change error ident should be "yep" ok 481 - _trim_to undeployed change error message should be correct ok 482 - _trim_to should complain about an unplanned change key ok 483 - _trim_to unplanned change error ident should be "oop" ok 484 - _trim_to unplanned change error message should be correct ok 485 - _trim_to should find "roles" at index 0 ok 486 - Changes should be untrimmed ok 487 - _trim_to should find "widgets" at index 2 ok 488 - First two changes should be shifted off ok 489 - _trim_to should find "dr_evil" at last index ok 490 - Changes should be untrimmed ok 491 - _trim_to should find "tacos" at index 4 ok 492 - Last two changes should be popped off ok 493 - _trim_to should find "@HEAD" at index 2 ok 494 - First two changes should be shifted off ok 495 - _trim_to should find "HEAD" at index 2 ok 496 - First two changes should be shifted off ok 497 - _trim_to should find "@ROOT" at index 2 ok 498 - All but First three changes should be popped off ok 499 - _trim_to should find "ROOT" at index 2 ok 500 - All but First three changes should be popped off ok 501 - App::Sqitch::Engine::whu->can('_verify_changes') ok 502 - Verify of a single change should return errcount 0 ok 503 - Declared output should list the change ok 504 - Emitted Output should reflect the verification of the change ok 505 - Should have no comments ok 506 - The verify script should have been run ok 507 - Verify of another single change should return errcount 0 ok 508 - Declared output should list the change ok 509 - Emitted Output should reflect the verification of the change ok 510 - Should have no comments ok 511 - A warning about no verify file should have been emitted ok 512 - The verify script should not have been run ok 513 - Verify of two changes should return errcount 0 ok 514 - Declared output should list both changes ok 515 - Emitted Output should reflect the verification of the changes ok 516 - Should have no comments ok 517 - A warning about no verify file should have been emitted ok 518 - Only one verify script should have been run ok 519 - Verify of two changes and show pending ok 520 - Delcared output should list deployed changes ok 521 - Emitted output should include list of pending changes ok 522 - Should have no comments ok 523 - A warning about no verify file should have been emitted ok 524 - Only one verify script should have been run ok 525 - Verify of a change not in the plan should return errcount 1 ok 526 - Declared Output should reflect the verification of the change ok 527 - Emitted Output should reflect the failure of the verify ok 528 - Should have a comment about the change missing from the plan ok 529 - No verify script should have been run ok 530 - Verify of an out-of-order change should return errcount 1 ok 531 - Declared output should reflect the verification of the change ok 532 - Emitted Output should reflect the failure of the verify ok 533 - Should have a comment about the out-of-order change ok 534 - The verify script should have been run ok 535 - Verify of a change with 2 issues should return 2 ok 536 - Declared output should reflect the verification of the change ok 537 - Emitted Output should reflect the failure of the verify ok 538 - Should have comment about the out-of-order change and script failure ok 539 - No abstract methods should have been called ok 540 - Verify of 2 changes with 2 issues each should return 4 ok 541 - Declraed output should reflect the verification of both changes ok 542 - Emitted Output should reflect the failure of both verifies ok 543 - Should have comment about the out-of-order changes and script failures ok 544 - No abstract methods should have been called ok 545 - _verify_changes with two undeployed changes should returne 2 ok 546 - Listed changes should be both deployed and undeployed ok 547 - Emitted Output should reflect 1 pass ok 548 - Should have comments for undeployed changes ok 549 - No abstract methods should have been called ok 550 - App::Sqitch::Engine::whu->can('verify') ok 551 - Should get error for no deployed changes ok 552 - No deployed changes ident should be "verify" ok 553 - No deployed changes exitval should be 1 ok 554 - No deployed changes message should be correct ok 555 - Notification of the verify should be emitted ok 556 - Should get error for no changes ok 557 - No changes ident should be "verify" ok 558 - No changes exitval should be 1 ok 559 - No changes message should be correct ok 560 - Notification of the verify should be emitted ok 561 - Should get error for no planned changes ok 562 - No planned changes ident should be "verify" ok 563 - No planned changes exitval should be 2 ok 564 - No planned changes message should be correct ok 565 - Notification of the verify should be emitted ok 566 - Verify one change ok 567 - Notification of the verify should be emitted ok 568 - The one change name should be declared ok 569 - Success should be emitted ok 570 - Should have no comments ok 571 - Verify two changes ok 572 - Notification of the verify should be emitted ok 573 - The two change names should be declared ok 574 - Both successes should be emitted ok 575 - Should have no comments ok 576 - Should have warning about missing verify script ok 577 - Verify with a reworked change changes ok 578 - Notification of the verify should be emitted ok 579 - The two change names should be emitted ok 580 - Both successes should be emitted ok 581 - Should have no comments ok 582 - Should have no warnings ok 583 - Verify two specific changes ok 584 - Notification of the verify should be emitted ok 585 - The two change names should be emitted ok 586 - Both successes should be emitted ok 587 - Should have no comments ok 588 - Should have warning about missing verify script ok 589 - Should get failure for failing verify scripts ok 590 - Failed verify ident should be "verify" ok 591 - Failed verify exitval should be 2 ok 592 - Faield verify message should be correct ok 593 - Notification of the verify should be emitted ok 594 - Both change names should be declared ok 595 - Output should include the failure report ok 596 - Should have the errors in comments ok 597 - Nothing should have been vented not ok 598 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/598 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Eval went very, very wrong: { my $default_for__5fwas_5fset = ${$_[1]->{"\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\$trigger_for_deploy_5fdir"}}; no warnings 'closure'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq 'HASH' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"_engine\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"config\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_client\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_host\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\A-?[0-9]+\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_port\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_username\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"deploy_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"extension\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"pager\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"plan\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"revert_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"sysuser\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"top_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_email\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"verify_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \&App::Sqitch::new } 1; Useless use of array element in void context at (eval 203) line 77. at (eval 203) line 77. eval '{ my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; no warnings \'closure\'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"_engine\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"config\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_client\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_host\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_port\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_username\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"extension\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"pager\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"plan\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"revert_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"sysuser\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"top_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_email\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"verify_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \\&App::Sqitch::new } 1; ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x10104e840)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 Sub::Quote::unquote_sub(CODE(0x1002b2fb0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 Sub::Defer::undefer_sub(CODE(0x10045be68)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 App::Sqitch::new("App::Sqitch", "_engine", "firebird", "db_name", "foo.fdb") called at t/firebird.t line 51 # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 2. t/firebird.t ........ ok 1 - require App::Sqitch::Engine::firebird; ok 2 - config_vars should return three vars Dubious, test returned 2 (wstat 512, 0x200) All 2 subtests passed Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 5 warning(s) # Previous test 0 '' # Useless use of array element in void context at (eval 195) line 77. # at (eval 195) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101052aa8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b36b8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100453208)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/help.t line 22 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 195) line 438. # at (eval 195) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101052aa8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b36b8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100453208)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/help.t line 22 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 195) line 515. # at (eval 195) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101052aa8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b36b8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100453208)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/help.t line 22 # # ---------- # Previous test 1 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 202) line 70. # at (eval 202) line 70. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1017489c8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1012c1298)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101489fb8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::new("App::Sqitch::Command::help", HASH(0x10063b268)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1002b7ba0)) called at t/help.t line 24 # # ---------- # Previous test 1 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 203) line 70. # at (eval 203) line 70. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::help::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::help") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::help::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::help::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1018a10b0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018b4910)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1018b4808)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::help::new("App::Sqitch::Command::help", HASH(0x10063b268)) called at (eval 202) line 25 # App::Sqitch::Command::new("App::Sqitch::Command::help", HASH(0x10063b268)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1002b7ba0)) called at t/help.t line 24 # # Looks like you failed 1 test of 11. t/help.t ............ 1..11 ok 1 - Load a sqitch sqitch object ok 2 - 'Load help command' isa 'App::Sqitch::Command::help' ok 3 - Execute help ok 4 - Should show sqitch app docs ok 5 - Execute "config" help ok 6 - Should show "config" command docs ok 7 - Should get an exception for "nonexistent" help ok 8 - Exception ident should be "help" ok 9 - Should get failure message for nonexistent command ok 10 - Exception exit val should be 1 not ok 11 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/11 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 18 warning(s) # Previous test 2 ''App::Sqitch::Command::init' isa 'App::Sqitch::Command'' # Useless use of array element in void context at (eval 200) line 77. # at (eval 200) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010544f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002cca68)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004691b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b3700)) called at t/init.t line 46 # # ---------- # Previous test 2 ''App::Sqitch::Command::init' isa 'App::Sqitch::Command'' # Useless use of array element in void context at (eval 200) line 438. # at (eval 200) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010544f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002cca68)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004691b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b3700)) called at t/init.t line 46 # # ---------- # Previous test 2 ''App::Sqitch::Command::init' isa 'App::Sqitch::Command'' # Useless use of array element in void context at (eval 200) line 515. # at (eval 200) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010544f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002cca68)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1004691b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b3700)) called at t/init.t line 46 # # ---------- # Previous test 2 ''App::Sqitch::Command::init' isa 'App::Sqitch::Command'' # Useless use of array element in void context at (eval 201) line 71. # at (eval 201) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::init::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::init") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::init::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::init::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101112ca0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101949bb0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1018e4a90)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::init::new("App::Sqitch::Command::init", "sqitch", App::Sqitch=HASH(0x101949850)) called at t/init.t line 47 # # ---------- # Previous test 53 'nonexistent.conf does not exist' # Useless use of array element in void context at (eval 238) line 189. # at (eval 238) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101973f50)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101cf4d20)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c893c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x101cc1fe0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101cc1fe0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x10148a980)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101cc2490)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101d16548)) called at t/init.t line 221 # # ---------- # Previous test 53 'nonexistent.conf does not exist' # Useless use of array element in void context at (eval 238) line 379. # at (eval 238) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101973f50)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101cf4d20)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c893c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x101cc1fe0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101cc1fe0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x10148a980)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101cc2490)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101d16548)) called at t/init.t line 221 # # ---------- # Previous test 53 'nonexistent.conf does not exist' # Useless use of array element in void context at (eval 238) line 456. # at (eval 238) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101973f50)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101cf4d20)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c893c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x101cc1fe0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101cc1fe0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x10148a980)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101cc2490)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101d16548)) called at t/init.t line 221 # # ---------- # Previous test 53 'nonexistent.conf does not exist' # Useless use of array element in void context at (eval 238) line 492. # at (eval 238) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101973f50)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101cf4d20)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c893c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x101cc1fe0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101cc1fe0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x10148a980)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101cc2490)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101d16548)) called at t/init.t line 221 # # ---------- # Previous test 53 'nonexistent.conf does not exist' # Useless use of array element in void context at (eval 243) line 43. # at (eval 243) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_registry = ${$_[1]->{"\\$default_for_registry"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::registry { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "registry is a read-only accessor" if @_ > 1; # exists $_[0]->{"registry"} ? # $_[0]->{"registry"} # : do { # my $value = $default_for_registry->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"registry"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Engine::registry # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101f41938)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101bfdcc8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101bfdcc8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::registry(App::Sqitch::Engine::pg=HASH(0x101cbc318)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 224 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101d16548)) called at t/init.t line 221 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 247) line 189. # at (eval 247) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ecec00)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f63338)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101fd2020)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 247) line 379. # at (eval 247) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ecec00)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f63338)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101fd2020)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 247) line 456. # at (eval 247) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ecec00)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f63338)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101fd2020)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 247) line 492. # at (eval 247) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ecec00)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f63338)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101fd2020)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 247) line 528. # at (eval 247) line 528. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ecec00)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101f63338)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101fd2020)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 250) line 43. # at (eval 250) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102018730)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a4da0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a4da0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101f397f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x101f633c8), HASH(0x101f63350)) called at (eval 247) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 251) line 71. # at (eval 251) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101966d78)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020ac1b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149c310)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101cc1d88)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x1013646a8), "sqitch", App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101cc1d88)) called at (eval 250) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101f397f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x101f633c8), HASH(0x101f63350)) called at (eval 247) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 251) line 107. # at (eval 251) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101966d78)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020ac1b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149c310)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101cc1d88)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x1013646a8), "sqitch", App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101cc1d88)) called at (eval 250) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101f397f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x101f633c8), HASH(0x101f63350)) called at (eval 247) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # ---------- # Previous test 59 'Create new init with sqitch non-default attributes' # Useless use of array element in void context at (eval 251) line 256. # at (eval 251) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101966d78)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020ac1b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10149c310)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x101cc1d88)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x1013646a8), "sqitch", App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x101cc1d88)) called at (eval 250) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101f397f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD(App::Sqitch::Engine::sqlite=HASH(0x101f633c8), HASH(0x101f63350)) called at (eval 247) line 685 # App::Sqitch::Engine::sqlite::new(undef, HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x101ae8280)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x101cc1d88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101ae7ce0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/init.pm line 190 # App::Sqitch::Command::init::write_config(App::Sqitch::Command::init=HASH(0x101f63290)) called at t/init.t line 259 # # Looks like you failed 1 test of 157. t/init.t ............ 1..157 ok 1 - use App::Sqitch::Command::init; ok 2 - 'App::Sqitch::Command::init' isa 'App::Sqitch::Command' ok 3 - 'New init object' isa 'App::Sqitch::Command::init' ok 4 - App::Sqitch::Command::init->can(...) ok 5 - Options should be correct ok 6 - Default config should be empty ok 7 - Should accept a URI in options ok 8 - 'processed uri option' isa 'URI' ok 9 - App::Sqitch::Command::init->can('make_directories') ok 10 - dir init.mkdir does not exist ok 11 - dir init.mkdir/deploy does not exist ok 12 - dir init.mkdir/revert does not exist ok 13 - dir init.mkdir/verify does not exist ok 14 - Make the directories ok 15 - dir init.mkdir exists ok 16 - dir init.mkdir/deploy exists ok 17 - dir init.mkdir/revert exists ok 18 - dir init.mkdir/verify exists ok 19 - Each should have been sent to info ok 20 - Make the directories again ok 21 - Nothing should have been sent to info ok 22 - Make the directories once more ok 23 - revert dir exists again ok 24 - Should have noted creation of revert dir ok 25 - Should fail on permission issue ok 26 - Permission error should have ident "init" ok 27 - The permission error should be formatted properly ok 28 - App::Sqitch::Command::init->can('write_config') ok 29 - Another init object ok 30 - nonexistent.conf does not exist ok 31 - Write the config ok 32 - nonexistent.conf exists ok 33 - The configuration file should have no variables ok 34 - The creation should be sent to info ok 35 - All in core section should be commented-out ok 36 - Another init object ok 37 - Write the config ok 38 - nonexistent.conf exists ok 39 - The configuration should have been written with the one setting ok 40 - The creation should be sent to info ok 41 - Other settings should be commented-out ok 42 - Write the config again ok 43 - The configuration should be unchanged ok 44 - Nothing should have been sent to info ok 45 - Make an init object with user config ok 46 - nonexistent.conf does not exist ok 47 - Write the config with a user conf ok 48 - nonexistent.conf exists ok 49 - The configuration should just have core.top_dir ok 50 - The creation should be sent to info again ok 51 - Other settings should be commented-out ok 52 - Make an init object with system config ok 53 - nonexistent.conf does not exist ok 54 - Write the config with a system conf ok 55 - nonexistent.conf exists ok 56 - The configuration should have local and system config ok 57 - The creation should be sent to info again ok 58 - Other settings should be commented-out ok 59 - Create new init with sqitch non-default attributes ok 60 - Write the config with core attrs ok 61 - The creation should be sent to info once more ok 62 - The configuration should have been written with all the core values ok 63 - Create new init with sqitch with non-default engine attributes ok 64 - Write the config with engine attrs ok 65 - The creation should be sent to info yet again ok 66 - The configuration should have been written with sqlite values ok 67 - target should be included in a comment ok 68 - registry_uri should be included in a comment ok 69 - Create new init with sqitch with default engine attributes ok 70 - Write the config with engine attrs ok 71 - The creation should be sent to info again again ok 72 - The configuration should have been written with only the engine var ok 73 - Engine section should be present but commented-out ok 74 - Make an init with sqlite and user config ok 75 - nonexistent.conf does not exist ok 76 - Write the config with sqlite config ok 77 - The creation should be sent to info once more ok 78 - New config should have been written with sqlite values ok 79 - Configured client should be included in a comment ok 80 - Configured target should be included in a comment ok 81 - Configured registry should be included in a comment ok 82 - Create new init with sqitch with more non-default engine attributes ok 83 - Write the config with more engine attrs ok 84 - The creation should be sent to info one more time ok 85 - The configuration should have been written with client values ok 86 - registry should be included in a comment ok 87 - Create new init with sqitch with default engine attributes ok 88 - Write the config with engine attrs ok 89 - The creation should be sent to info again again again ok 90 - The configuration should have been written with only the engine var ok 91 - Engine section should be present but commented-out ok 92 - Make an init with pg and user config ok 93 - nonexistent.conf does not exist ok 94 - Write the config with pg config ok 95 - The pg config creation should be sent to info ok 96 - The configuration should have been written with pg options ok 97 - Configured registry should be in a comment ok 98 - Configured target should be in a comment ok 99 - App::Sqitch::Command::init->can('write_plan') ok 100 - Plan file should not yet exist ok 101 - Write the plan file ok 102 - The plan creation should be sent to info ok 103 - Plan file should now exist ok 104 - The contents should be correct ok 105 - Write the plan file again ok 106 - The file should not be overwritten ok 107 - Create new init with sqitch with project and URI ok 108 - Write the plan file again ok 109 - The plan creation should be sent to info againq ok 110 - Plan file should again exist ok 111 - The plan should include the project and uri pragmas ok 112 - App::Sqitch::Command::init->can('_validate_project') ok 113 - No project should yield usage ok 114 - No args should be passed to usage ok 115 - Should get error for invalid project name "^foo" ok 116 - Bad project "^foo" ident should be "init" ok 117 - Bad project "^foo" error message should be correct ok 118 - Should get error for invalid project name "foo^" ok 119 - Bad project "foo^" ident should be "init" ok 120 - Bad project "foo^" error message should be correct ok 121 - Should get error for invalid project name "foo^6" ok 122 - Bad project "foo^6" ident should be "init" ok 123 - Bad project "foo^6" error message should be correct ok 124 - Should get error for invalid project name "foo^666" ok 125 - Bad project "foo^666" ident should be "init" ok 126 - Bad project "foo^666" error message should be correct ok 127 - Should get error for invalid project name "%hi" ok 128 - Bad project "%hi" ident should be "init" ok 129 - Bad project "%hi" error message should be correct ok 130 - Should get error for invalid project name "hi!" ok 131 - Bad project "hi!" ident should be "init" ok 132 - Bad project "hi!" error message should be correct ok 133 - Should get error for invalid project name "foo@bar" ok 134 - Bad project "foo@bar" ident should be "init" ok 135 - Bad project "foo@bar" error message should be correct ok 136 - Should get error for invalid project name "foo:bar" ok 137 - Bad project "foo:bar" ident should be "init" ok 138 - Bad project "foo:bar" error message should be correct ok 139 - Should get error for invalid project name "+foo" ok 140 - Bad project "+foo" ident should be "init" ok 141 - Bad project "+foo" error message should be correct ok 142 - Should get error for invalid project name "-foo" ok 143 - Bad project "-foo" ident should be "init" ok 144 - Bad project "-foo" error message should be correct ok 145 - Should get error for invalid project name "@foo" ok 146 - Bad project "@foo" ident should be "init" ok 147 - Bad project "@foo" error message should be correct ok 148 - Execute! ok 149 - dir plan.dir exists ok 150 - dir plan.dir/deploy exists ok 151 - dir plan.dir/revert exists ok 152 - dir plan.dir/verify exists ok 153 - nonexistent.conf exists ok 154 - plan.dir/sqitch.plan exists ok 155 - Should have status messages ok 156 - The plan should have the --project name not ok 157 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/157 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 3 warning(s) # Previous test 2 'App::Sqitch::ItemFormatter->can(...)' # Useless use of array element in void context at (eval 208) line 113. # at (eval 208) line 113. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::ItemFormatter::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::ItemFormatter") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::ItemFormatter::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"abbrev"} # ? $args->{"abbrev"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "abbrev", # name => "abbrev", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"abbrev\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"abbrev"} = $value; # } # { # my $value = ( # exists $args->{"color"} # ? $args->{"color"} # : "auto" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "color", # name => "color", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:always|auto|never)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[always,auto,never]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"color\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"color"} = $value; # } # { # my $value = ( # exists $args->{"date_format"} # ? $args->{"date_format"} # : "iso" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "date_format", # name => "date_format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"date_format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"date_format"} = $value; # } # if (exists $args->{"formatter"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "formatter", # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"formatter"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(65, "StringFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"formatter"} = $args->{"formatter"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::ItemFormatter::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101053c68)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101c55f70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c72ba0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::ItemFormatter::new("App::Sqitch::ItemFormatter") called at t/item_formatter.t line 35 # # ---------- # Previous test 2 'App::Sqitch::ItemFormatter->can(...)' # Useless use of array element in void context at (eval 208) line 190. # at (eval 208) line 190. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::ItemFormatter::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::ItemFormatter") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::ItemFormatter::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"abbrev"} # ? $args->{"abbrev"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "abbrev", # name => "abbrev", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"abbrev\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"abbrev"} = $value; # } # { # my $value = ( # exists $args->{"color"} # ? $args->{"color"} # : "auto" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "color", # name => "color", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:always|auto|never)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[always,auto,never]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"color\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"color"} = $value; # } # { # my $value = ( # exists $args->{"date_format"} # ? $args->{"date_format"} # : "iso" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "date_format", # name => "date_format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"date_format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"date_format"} = $value; # } # if (exists $args->{"formatter"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "formatter", # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"formatter"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(65, "StringFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"formatter"} = $args->{"formatter"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::ItemFormatter::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101053c68)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101c55f70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101c72ba0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::ItemFormatter::new("App::Sqitch::ItemFormatter") called at t/item_formatter.t line 35 # # ---------- # Previous test 5 'Default date format should be "iso"' # Useless use of array element in void context at (eval 214) line 43. # at (eval 214) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_formatter = ${$_[1]->{"\\$default_for_formatter"}}; # no warnings \'closure\'; # sub App::Sqitch::ItemFormatter::formatter { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "formatter is a read-only accessor" if @_ > 1; # exists $_[0]->{"formatter"} ? # $_[0]->{"formatter"} # : do { # my $value = $default_for_formatter->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(65, "StringFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"formatter"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::ItemFormatter::formatter # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101cfbb28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101cef4b0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101cef4b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::ItemFormatter::formatter(App::Sqitch::ItemFormatter=HASH(0x1002b3088)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/ItemFormatter.pm line 224 # App::Sqitch::ItemFormatter::format(App::Sqitch::ItemFormatter=HASH(0x1002b3088), "%e", HASH(0x101e05b50)) called at t/item_formatter.t line 214 # # Looks like you failed 1 test of 158. t/item_formatter.t .. 1..158 ok 1 - require App::Sqitch::ItemFormatter; ok 2 - App::Sqitch::ItemFormatter->can(...) ok 3 - 'Instantiated object' isa 'App::Sqitch::ItemFormatter' ok 4 - Should not be abbreviated by default ok 5 - Default date format should be "iso" ok 6 - Format "%e" should output "deploy" ok 7 - Format "%e" should output "revert" ok 8 - Format "%e" should output "fail" ok 9 - Format "%L" should output "Deploy" ok 10 - Format "%L" should output "Revert" ok 11 - Format "%L" should output "Fail" ok 12 - Format "%l" should output "deploy" ok 13 - Format "%l" should output "revert" ok 14 - Format "%l" should output "fail" ok 15 - Format "%{event}_" should output "Event: " ok 16 - Format "%{change}_" should output "Change: " ok 17 - Format "%{committer}_" should output "Committer:" ok 18 - Format "%{planner}_" should output "Planner: " ok 19 - Format "%{by}_" should output "By: " ok 20 - Format "%{date}_" should output "Date: " ok 21 - Format "%{committed}_" should output "Committed:" ok 22 - Format "%{planned}_" should output "Planned: " ok 23 - Format "%{name}_" should output "Name: " ok 24 - Format "%{email}_" should output "Email: " ok 25 - Format "%{requires}_" should output "Requires: " ok 26 - Format "%{conflicts}_" should output "Conflicts:" ok 27 - Format "%H" should output "123456789" ok 28 - Format "%h" should output "123456789" ok 29 - Format "%{5}h" should output "12345" ok 30 - Format "%{7}h" should output "1234567" ok 31 - Format "%n" should output "foo" ok 32 - Format "%n" should output "bar" ok 33 - Format "%o" should output "foo" ok 34 - Format "%o" should output "bar" ok 35 - Format "%c" should output "larry " ok 36 - Format "%{n}c" should output "damian" ok 37 - Format "%{name}c" should output "chip" ok 38 - Format "%{e}c" should output "larry@example.com" ok 39 - Format "%{email}c" should output "damian@example.com" ok 40 - Format "%{date}c" should output "2014-09-06 07:16:43 -0700" ok 41 - Format "%{date:rfc}c" should output "Sat, 06 Sep 2014 07:16:43 -0700" ok 42 - Format "%{d:long}c" should output "September 6, 2014 7:16:43 AM PDT" ok 43 - Format "%{d:cldr:HH'h' mm'm'}c" should output "07h 16m" ok 44 - Format "%{d:strftime:%a at %H:%M:%S}c" should output "Sat at 07:16:43" ok 45 - Format "%p" should output "larry " ok 46 - Format "%{n}p" should output "damian" ok 47 - Format "%{name}p" should output "chip" ok 48 - Format "%{e}p" should output "larry@example.com" ok 49 - Format "%{email}p" should output "damian@example.com" ok 50 - Format "%{date}p" should output "2014-09-05 07:16:43 -0700" ok 51 - Format "%{date:rfc}p" should output "Fri, 05 Sep 2014 07:16:43 -0700" ok 52 - Format "%{d:long}p" should output "September 5, 2014 7:16:43 AM PDT" ok 53 - Format "%{d:cldr:HH'h' mm'm'}p" should output "07h 16m" ok 54 - Format "%{d:strftime:%a at %H:%M:%S}p" should output "Fri at 07:16:43" ok 55 - Format "%t" should output "" ok 56 - Format "%t" should output " @foo" ok 57 - Format "%t" should output " @foo, @bar" ok 58 - Format "%{|}t" should output "" ok 59 - Format "%{|}t" should output " @foo" ok 60 - Format "%{|}t" should output " @foo|@bar" ok 61 - Format "%T" should output "" ok 62 - Format "%T" should output " (@foo)" ok 63 - Format "%T" should output " (@foo, @bar)" ok 64 - Format "%{|}T" should output "" ok 65 - Format "%{|}T" should output " (@foo)" ok 66 - Format "%{|}T" should output " (@foo|@bar)" ok 67 - Format "%r" should output "" ok 68 - Format "%r" should output " foo" ok 69 - Format "%r" should output " foo, bar" ok 70 - Format "%{|}r" should output "" ok 71 - Format "%{|}r" should output " foo" ok 72 - Format "%{|}r" should output " foo|bar" ok 73 - Format "%R" should output "" ok 74 - Format "%R" should output "Requires: foo[newline]" ok 75 - Format "%R" should output "Requires: foo, bar[newline]" ok 76 - Format "%{|}R" should output "" ok 77 - Format "%{|}R" should output "Requires: foo[newline]" ok 78 - Format "%{|}R" should output "Requires: foo|bar[newline]" ok 79 - Format "%x" should output "" ok 80 - Format "%x" should output " foo" ok 81 - Format "%x" should output " foo, bax" ok 82 - Format "%{|}x" should output "" ok 83 - Format "%{|}x" should output " foo" ok 84 - Format "%{|}x" should output " foo|bax" ok 85 - Format "%X" should output "" ok 86 - Format "%X" should output "Conflicts: foo[newline]" ok 87 - Format "%X" should output "Conflicts: foo, bar[newline]" ok 88 - Format "%{|}X" should output "" ok 89 - Format "%{|}X" should output "Conflicts: foo[newline]" ok 90 - Format "%{|}X" should output "Conflicts: foo|bar[newline]" ok 91 - Format "%{yellow}C" should output "" ok 92 - Format "%{:event}C" should output "" ok 93 - Format "%v" should output "[newline]" ok 94 - Format "%%" should output "%" ok 95 - Format "%s" should output "hi there" ok 96 - Format "%s" should output "hi there" ok 97 - Format "%s" should output "subject line" ok 98 - Format "%{ }s" should output " hi there" ok 99 - Format "%{xx}s" should output "xxhi there" ok 100 - Format "%b" should output "" ok 101 - Format "%b" should output "yo" ok 102 - Format "%b" should output "first graph[newline][newline]second graph[newline][newline]" ok 103 - Format "%{ }b" should output "" ok 104 - Format "%{xxx }b" should output "xxx yo" ok 105 - Format "%{x}b" should output "xfirst graph[newline]x[newline]xsecond graph[newline]x[newline]" ok 106 - Format "%{ }b" should output " yo" ok 107 - Format "%B" should output "hi there" ok 108 - Format "%B" should output "hi there[newline]yo" ok 109 - Format "%B" should output "subject line[newline][newline]first graph[newline][newline]second graph[newline][newline]" ok 110 - Format "%{ }B" should output " hi there" ok 111 - Format "%{xxx }B" should output "xxx hi there[newline]xxx yo" ok 112 - Format "%{x}B" should output "xsubject line[newline]x[newline]xfirst graph[newline]x[newline]xsecond graph[newline]x[newline]" ok 113 - Format "%{ }B" should output " hi there [newline] yo" ok 114 - Format "%{change}a" should output "change lolz[newline]" ok 115 - Format "%{change_id}a" should output "change_id 000011112222333444[newline]" ok 116 - Format "%{event}a" should output "event deploy[newline]" ok 117 - Format "%{tags}a" should output "tags @beta, @gamma[newline]" ok 118 - Format "%{requires}a" should output "requires foo, bar[newline]" ok 119 - Format "%{conflicts}a" should output "" ok 120 - Format "%{committer_name}a" should output "committer_name larry[newline]" ok 121 - Format "%{committed_at}a" should output "committed_at 2014-09-06T14:16:43Z[newline]" ok 122 - Should get exception for format "%_" ok 123 - %_ error ident should be "format" ok 124 - %_ error message should be correct ok 125 - Should get exception for unknown label in format "%_" ok 126 - Invalid %_ label error ident should be "format" ok 127 - Invalid %_ label error message should be correct ok 128 - Instantiate with abbrev => 4 ok 129 - %h should respect abbrev ok 130 - %H should not respect abbrev ok 131 - Instantiate with date_format => "rfc" ok 132 - %{date}c should respect the date_format attribute ok 133 - %{iso}c should override the date_format attribute ok 134 - Should get exception for unknown attribute passed to %a ok 135 - %a error ident should be "log" ok 136 - %a error message should be correct ok 137 - Construct with color "always" ok 138 - Format "%{yellow}C" should output yellow ok 139 - Format "%{red}C" should output red ok 140 - Format "%{blue}C" should output blue ok 141 - Format "%{cyan}C" should output cyan ok 142 - Format "%{magenta}C" should output magenta ok 143 - Format "%{:event}C" on "deploy" should output green ok 144 - Format "%{:event}C" on "revert" should output blue ok 145 - Format "%{:event}C" on "fail" should output red ok 146 - Should get an error for an invalid color ok 147 - Invalid color error ident should be "log" ok 148 - Invalid color error message should be correct ok 149 - Construct with color "never" ok 150 - Format "%{yellow}C" should not output a color ok 151 - Format "%{red}C" should not output a color ok 152 - Format "%{blue}C" should not output a color ok 153 - Format "%{cyan}C" should not output a color ok 154 - Format "%{magenta}C" should not output a color ok 155 - Should get an exception for a bad format code ok 156 - bad format code format error ident should be "log" ok 157 - bad format code format error message should be correct not ok 158 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/158 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 34 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x100becf48)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x100bece70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x100becdb0)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100eb8558), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x100f7f8b0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x1011e0b78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x1013dd7e0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Plan", "class", "App::Sqitch::Plan") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x1011a63a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x1013e6828)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Change", "class", "App::Sqitch::Plan::Change") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x1011eb888)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x1013f1ea8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "ChangeList", "class", "App::Sqitch::Plan::ChangeList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x1011eb828)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x1013f8e78)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "LineList", "class", "App::Sqitch::Plan::LineList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x1011e1100)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x1013fe420)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Tag", "class", "App::Sqitch::Plan::Tag") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x1011f4408)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x10140a1d8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Depend", "class", "App::Sqitch::Plan::Depend") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x1013c08e8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x1014121d0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DateTime", "class", "App::Sqitch::DateTime") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x1013e6510)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x101419938)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x1013f0b00)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x1014250b8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Config", "class", "App::Sqitch::Config") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x1011e1088)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x10142bb98)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "File", "class", "Path::Class::File") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x1013f8b90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x101433f90)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Dir", "class", "Path::Class::Dir") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x101409f08)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny::Class=HASH(0x10143b8f8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x101411f00)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny=HASH(0x101443050)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x100eb8558), "constraint", CODE(0x1013b5648)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny=HASH(0x10144bb60)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x100eb8558), "constraint", CODE(0x1013b5840)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny=HASH(0x1014566e8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x1013b5a08)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1012055a0), Type::Tiny=HASH(0x10145a800)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x100eb3cf8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at /export/home/fly1464/var/megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x10156abf0), ARRAY(0x10153bb80)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/linelist.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 196) line 77. # at (eval 196) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010bf428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101784450)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1005fd2e0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/linelist.t line 20 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 196) line 438. # at (eval 196) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010bf428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101784450)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1005fd2e0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/linelist.t line 20 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 196) line 515. # at (eval 196) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010bf428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101784450)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1005fd2e0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/linelist.t line 20 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 197) line 71. # at (eval 197) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017ade48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017b7990)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015673c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at t/linelist.t line 21 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 197) line 107. # at (eval 197) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017ade48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017b7990)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015673c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at t/linelist.t line 21 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 197) line 256. # at (eval 197) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017ade48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017b7990)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015673c8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at t/linelist.t line 21 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 198) line 597. # at (eval 198) line 597. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101785980)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10185bea0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101616850)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x10181bf58), "name", "foo") called at t/linelist.t line 23 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 198) line 633. # at (eval 198) line 633. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101785980)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10185bea0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101616850)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x10181bf58), "name", "foo") called at t/linelist.t line 23 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 198) line 906. # at (eval 198) line 906. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101785980)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10185bea0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101616850)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x10181bf58), "name", "foo") called at t/linelist.t line 23 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 207) line 43. # at (eval 207) line 43. # eval '{ # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_sysuser = \${\$_[1]->{\"\\\$default_for_sysuse"..., HASH(0x1018a6150)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10177bff0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10177bff0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x1002b2f68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002b2f68)) called at (eval 201) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x1002b2f68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x1017a97b0)) called at (eval 198) line 649 # App::Sqitch::Plan::Change::new(undef, "plan", App::Sqitch::Plan=HASH(0x10181bf58), "name", "foo") called at t/linelist.t line 23 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 220) line 262. # at (eval 220) line 262. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101954550)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101df2a70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015c8658)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x10181bf58)) called at t/linelist.t line 29 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of hash element in void context at (eval 220) line 275. # at (eval 220) line 275. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101954550)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101df2a70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015c8658)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x10181bf58)) called at t/linelist.t line 29 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 221) line 61. # at (eval 221) line 61. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101e47428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e42f18)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a1720)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x10181bf58), "change", App::Sqitch::Plan::Change=HASH(0x10177c230), "name", "alpha") called at t/linelist.t line 30 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 221) line 441. # at (eval 221) line 441. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101e47428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e42f18)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a1720)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x10181bf58), "change", App::Sqitch::Plan::Change=HASH(0x10177c230), "name", "alpha") called at t/linelist.t line 30 # # ---------- # Previous test 1 'require App::Sqitch::Plan::LineList;' # Useless use of array element in void context at (eval 221) line 637. # at (eval 221) line 637. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101e47428)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e42f18)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a1720)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x10181bf58), "change", App::Sqitch::Plan::Change=HASH(0x10177c230), "name", "alpha") called at t/linelist.t line 30 # # Looks like you failed 1 test of 28. t/linelist.t ........ 1..28 ok 1 - require App::Sqitch::Plan::LineList; ok 2 - Count should be six ok 3 - Lines should be in order ok 4 - Should have foo at 0 ok 5 - Should have bar at 1 ok 6 - Should have yo1 at 2 ok 7 - Should have @alpha at 3 ok 8 - Should have blank at 4 ok 9 - Should have baz at 5 ok 10 - Should have yo2 at 6 ok 11 - Should not find "non" ok 12 - Should find foo at 0 ok 13 - Should find bar at 1 ok 14 - Should find yo1 at 2 ok 15 - Should find @alpha at 3 ok 16 - Should find blank at 4 ok 17 - Should find baz at 5 ok 18 - Should find yo2 at 6 ok 19 - Append hi ok 20 - Count should now be eight ok 21 - Lines should be in order with $hi at the end ok 22 - Insert a change at index 3 ok 23 - Count should now be nine ok 24 - Lines should be in order with $oy at index 3 ok 25 - Should find oy at 3 ok 26 - Should find @alpha at 4 ok 27 - Should find hi at 8 not ok 28 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/28 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 16 warning(s) # Previous test 1 'require App::Sqitch::Command::log;' # Useless use of array element in void context at (eval 201) line 77. # at (eval 201) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018dbc90)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x101813e68), "_engine", "sqlite") called at t/log.t line 26 # # ---------- # Previous test 1 'require App::Sqitch::Command::log;' # Useless use of array element in void context at (eval 201) line 438. # at (eval 201) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018dbc90)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x101813e68), "_engine", "sqlite") called at t/log.t line 26 # # ---------- # Previous test 1 'require App::Sqitch::Command::log;' # Useless use of array element in void context at (eval 201) line 515. # at (eval 201) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018dbc90)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x101813e68), "_engine", "sqlite") called at t/log.t line 26 # # ---------- # Previous test 2 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 208) line 190. # at (eval 208) line 190. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::ItemFormatter::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::ItemFormatter") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::ItemFormatter::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"abbrev"} # ? $args->{"abbrev"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "abbrev", # name => "abbrev", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"abbrev\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"abbrev"} = $value; # } # { # my $value = ( # exists $args->{"color"} # ? $args->{"color"} # : "auto" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "color", # name => "color", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:always|auto|never)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[always,auto,never]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"color\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"color"} = $value; # } # { # my $value = ( # exists $args->{"date_format"} # ? $args->{"date_format"} # : "iso" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "date_format", # name => "date_format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"date_format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"date_format"} = $value; # } # if (exists $args->{"formatter"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "formatter", # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"formatter"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(65, "StringFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"formatter"} = $args->{"formatter"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::ItemFormatter::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1011118e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019cbcb0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1018432f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::ItemFormatter::new("App::Sqitch::ItemFormatter", "date_format", "iso") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 184 # App::Sqitch::Command::log::configure("App::Sqitch::Command::log", App::Sqitch::Config=HASH(0x1012ccd60), HASH(0x1002bb7a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 91 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/log.t line 31 # # ---------- # Previous test 2 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 209) line 219. # at (eval 209) line 219. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::log::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::log") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::log::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change_pattern", # name => "change_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change_pattern"} = $args->{"change_pattern"}; # } # if (exists $args->{"committer_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "committer_pattern", # name => "committer_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"committer_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"committer_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"committer_pattern"} = $args->{"committer_pattern"}; # } # if (exists $args->{"event"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "event", # name => "event", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"event"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"event\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"event"} = $args->{"event"}; # } # { # my $value = ( # exists $args->{"format"} # ? $args->{"format"} # : "%{:event}C%L %h%{reset}C\\n%{name}_ %n\\n%{committer}_ %c\\n%{date}_ %{date}c\\n\\n%{ }B\\n" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "format", # name => "format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"format"} = $value; # } # if (exists $args->{"formatter"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "formatter", # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"formatter"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC18($_[0])) ? $_[0] : Type::Tiny::_failed_check(66, "AppSqitchItemFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"formatter"} = $args->{"formatter"}; # } # if (exists $args->{"max_count"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_count", # name => "max_count", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_count"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_count\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_count"} = $args->{"max_count"}; # } # if (exists $args->{"project_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project_pattern", # name => "project_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project_pattern"} = $args->{"project_pattern"}; # } # { # my $value = ( # exists $args->{"reverse"} # ? $args->{"reverse"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "reverse", # name => "reverse", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"reverse\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"reverse"} = $value; # } # if (exists $args->{"skip"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "skip", # name => "skip", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"skip"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"skip\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"skip"} = $args->{"skip"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::log::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019db520)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019efff8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10185e148)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::log::new("App::Sqitch::Command::log", HASH(0x10063cb58)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/log.t line 31 # # ---------- # Previous test 2 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 209) line 404. # at (eval 209) line 404. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::log::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::log") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::log::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change_pattern", # name => "change_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change_pattern"} = $args->{"change_pattern"}; # } # if (exists $args->{"committer_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "committer_pattern", # name => "committer_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"committer_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"committer_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"committer_pattern"} = $args->{"committer_pattern"}; # } # if (exists $args->{"event"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "event", # name => "event", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"event"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"event\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"event"} = $args->{"event"}; # } # { # my $value = ( # exists $args->{"format"} # ? $args->{"format"} # : "%{:event}C%L %h%{reset}C\\n%{name}_ %n\\n%{committer}_ %c\\n%{date}_ %{date}c\\n\\n%{ }B\\n" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "format", # name => "format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"format"} = $value; # } # if (exists $args->{"formatter"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "formatter", # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"formatter"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC18($_[0])) ? $_[0] : Type::Tiny::_failed_check(66, "AppSqitchItemFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"formatter"} = $args->{"formatter"}; # } # if (exists $args->{"max_count"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_count", # name => "max_count", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_count"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_count\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_count"} = $args->{"max_count"}; # } # if (exists $args->{"project_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project_pattern", # name => "project_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project_pattern"} = $args->{"project_pattern"}; # } # { # my $value = ( # exists $args->{"reverse"} # ? $args->{"reverse"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "reverse", # name => "reverse", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"reverse\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"reverse"} = $value; # } # if (exists $args->{"skip"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "skip", # name => "skip", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"skip"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"skip\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"skip"} = $args->{"skip"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::log::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019db520)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019efff8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10185e148)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::log::new("App::Sqitch::Command::log", HASH(0x10063cb58)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/log.t line 31 # # ---------- # Previous test 37 'Instantiate with format "raw"' # Useless use of array element in void context at (eval 247) line 43. # at (eval 247) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_formatter = ${$_[1]->{"\\$default_for_formatter"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::log::formatter { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "formatter is a read-only accessor" if @_ > 1; # exists $_[0]->{"formatter"} ? # $_[0]->{"formatter"} # : do { # my $value = $default_for_formatter->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC18($_[0])) ? $_[0] : Type::Tiny::_failed_check(66, "AppSqitchItemFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"formatter"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Command::log::formatter # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019f9498)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002ba8f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1002ba8f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::log::formatter(App::Sqitch::Command::log=HASH(0x101fb52d0)) called at t/log.t line 282 # # ---------- # Previous test 37 'Instantiate with format "raw"' # Useless use of array element in void context at (eval 248) line 43. # at (eval 248) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_formatter = ${$_[1]->{"\\$default_for_formatter"}}; # no warnings \'closure\'; # sub App::Sqitch::ItemFormatter::formatter { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "formatter is a read-only accessor" if @_ > 1; # exists $_[0]->{"formatter"} ? # $_[0]->{"formatter"} # : do { # my $value = $default_for_formatter->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(65, "StringFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"formatter"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::ItemFormatter::formatter # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101fb4730)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018c7cf8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1018c7cf8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::ItemFormatter::formatter(App::Sqitch::ItemFormatter=HASH(0x101fb5378)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/ItemFormatter.pm line 224 # App::Sqitch::ItemFormatter::format(App::Sqitch::ItemFormatter=HASH(0x101fb5378), "%{:event}C%e %H%{reset}C%T\x{a}name %n\x{a}project %o\x{a}%{requir"..., HASH(0x101eda050)) called at t/log.t line 282 # # ---------- # Previous test 215 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 418) line 379. # at (eval 418) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC19($_[0])) ? $_[0] : Type::Tiny::_failed_check(67, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 135 # App::Sqitch::engine_for_target() called at (eval 414) line 17 # App::Sqitch::Command::engine_for_target() called at t/log.t line 596 # main::__ANON__() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 202 # App::Sqitch::Command::log::execute() called at t/log.t line 603 # Test::Exception::throws_ok() called at t/log.t line 603 # # ---------- # Previous test 215 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 418) line 456. # at (eval 418) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC19($_[0])) ? $_[0] : Type::Tiny::_failed_check(67, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 135 # App::Sqitch::engine_for_target() called at (eval 414) line 17 # App::Sqitch::Command::engine_for_target() called at t/log.t line 596 # main::__ANON__() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 202 # App::Sqitch::Command::log::execute() called at t/log.t line 603 # Test::Exception::throws_ok() called at t/log.t line 603 # # ---------- # Previous test 215 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 418) line 528. # at (eval 418) line 528. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC19($_[0])) ? $_[0] : Type::Tiny::_failed_check(67, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 135 # App::Sqitch::engine_for_target() called at (eval 414) line 17 # App::Sqitch::Command::engine_for_target() called at t/log.t line 596 # main::__ANON__() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 202 # App::Sqitch::Command::log::execute() called at t/log.t line 603 # Test::Exception::throws_ok() called at t/log.t line 603 # # ---------- # Previous test 215 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 422) line 43. # at (eval 422) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD() called at (eval 418) line 685 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 135 # App::Sqitch::engine_for_target() called at (eval 414) line 17 # App::Sqitch::Command::engine_for_target() called at t/log.t line 596 # main::__ANON__() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 202 # App::Sqitch::Command::log::execute() called at t/log.t line 603 # Test::Exception::throws_ok() called at t/log.t line 603 # # ---------- # Previous test 215 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 423) line 71. # at (eval 423) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 422) line 22 # App::Sqitch::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD() called at (eval 418) line 685 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 135 # App::Sqitch::engine_for_target() called at (eval 414) line 17 # App::Sqitch::Command::engine_for_target() called at t/log.t line 596 # main::__ANON__() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 202 # App::Sqitch::Command::log::execute() called at t/log.t line 603 # Test::Exception::throws_ok() called at t/log.t line 603 # # ---------- # Previous test 215 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 423) line 107. # at (eval 423) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 422) line 22 # App::Sqitch::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD() called at (eval 418) line 685 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 135 # App::Sqitch::engine_for_target() called at (eval 414) line 17 # App::Sqitch::Command::engine_for_target() called at t/log.t line 596 # main::__ANON__() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 202 # App::Sqitch::Command::log::execute() called at t/log.t line 603 # Test::Exception::throws_ok() called at t/log.t line 603 # # ---------- # Previous test 215 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 423) line 256. # at (eval 423) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 422) line 22 # App::Sqitch::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 27 # App::Sqitch::Engine::sqlite::BUILD() called at (eval 418) line 685 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 135 # App::Sqitch::engine_for_target() called at (eval 414) line 17 # App::Sqitch::Command::engine_for_target() called at t/log.t line 596 # main::__ANON__() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 202 # App::Sqitch::Command::log::execute() called at t/log.t line 603 # Test::Exception::throws_ok() called at t/log.t line 603 # # ---------- # Previous test 215 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 429) line 43. # at (eval 429) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_registry = ${$_[1]->{"\\$default_for_registry"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::registry { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "registry is a read-only accessor" if @_ > 1; # exists $_[0]->{"registry"} ? # $_[0]->{"registry"} # : do { # my $value = $default_for_registry->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"registry"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Engine::registry # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::registry() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 39 # App::Sqitch::Engine::sqlite::__ANON__() called at (eval 428) line 22 # App::Sqitch::Engine::sqlite::registry_uri() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 67 # App::Sqitch::Engine::sqlite::registry_destination() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/log.pm line 205 # App::Sqitch::Command::log::execute() called at t/log.t line 603 # Test::Exception::throws_ok() called at t/log.t line 603 # # Looks like you failed 1 test of 248. t/log.t ............. 1..248 ok 1 - require App::Sqitch::Command::log; ok 2 - Load a sqitch sqitch object ok 3 - 'log command' isa 'App::Sqitch::Command::log' ok 4 - App::Sqitch::Command::log->can(...) ok 5 - Options should be correct ok 6 - Default target should be undef ok 7 - 'new status with target' isa 'App::Sqitch::Command::log' ok 8 - Should have target "foo" ok 9 - 'Formatter' isa 'App::Sqitch::ItemFormatter' ok 10 - Should get empty hash for no config or options ok 11 - Should get error for invalid date format in config ok 12 - Invalid date format error ident should be "datetime" ok 13 - Invalid date format error message should be correct ok 14 - Should get error for invalid date format in optsions ok 15 - Invalid date format error ident should be "log" ok 16 - Invalid date format error message should be correct ok 17 - Should get error for invalid format in config ok 18 - Invalid format error ident should be "log" ok 19 - Invalid format error message should be correct ok 20 - Should get error for invalid format in optsions ok 21 - Invalid format error ident should be "log" ok 22 - Invalid format error message should be correct ok 23 - Configuration should respect --no-color, setting "never" ok 24 - --oneline should set format ok 25 - --oneline should set abbrev to 6 ok 26 - --oneline should not override --format ok 27 - --oneline should not overrride --abbrev ok 28 - Configuration should respect --no-color even when configure is set ok 29 - Configuration should respect color option ok 30 - Configuration should respect color config ok 31 - Configuration should respect color option ok 32 - Configuration should respect color config ok 33 - Configuration should respect color option ok 34 - Configuration should respect color config ok 35 - Configuration should respect color option ok 36 - Configuration should respect color config ok 37 - Instantiate with format "raw" ok 38 - Format "raw" should output correctly ok 39 - Format "raw" should output correctly without tags ok 40 - Instantiate with format "full" ok 41 - Format "full" should output correctly ok 42 - Instantiate with format "full" and date format "rfc" ok 43 - Format "full" and date format "rfc" should output correctly ok 44 - Instantiate with format "full" and date format "long" ok 45 - Format "full" and date format "long" should output correctly ok 46 - Instantiate with format "full" and date format "medium" ok 47 - Format "full" and date format "medium" should output correctly ok 48 - Format "full" should output correctly without tags ok 49 - Instantiate with format "long" ok 50 - Format "long" should output correctly ok 51 - Format "long" should output correctly without tags ok 52 - Instantiate with format "medium" ok 53 - Format "medium" should output correctly ok 54 - Instantiate with format "medium" and date format "rfc" ok 55 - Format "medium" and date format "rfc" should output correctly ok 56 - Instantiate with format "medium" and date format "long" ok 57 - Format "medium" and date format "long" should output correctly ok 58 - Instantiate with format "medium" and date format "medium" ok 59 - Format "medium" and date format "medium" should output correctly ok 60 - Instantiate with format "short" ok 61 - Format "short" should output correctly ok 62 - Instantiate with format "oneline" ok 63 - Format "oneline" should output correctly ok 64 - Format "%e" should output "deploy" ok 65 - Format "%e" should output "revert" ok 66 - Format "%e" should output "fail" ok 67 - Format "%L" should output "Deploy" ok 68 - Format "%L" should output "Revert" ok 69 - Format "%L" should output "Fail" ok 70 - Format "%l" should output "deploy" ok 71 - Format "%l" should output "revert" ok 72 - Format "%l" should output "fail" ok 73 - Format "%{event}_" should output "Event: " ok 74 - Format "%{change}_" should output "Change: " ok 75 - Format "%{committer}_" should output "Committer:" ok 76 - Format "%{planner}_" should output "Planner: " ok 77 - Format "%{by}_" should output "By: " ok 78 - Format "%{date}_" should output "Date: " ok 79 - Format "%{committed}_" should output "Committed:" ok 80 - Format "%{planned}_" should output "Planned: " ok 81 - Format "%{name}_" should output "Name: " ok 82 - Format "%{email}_" should output "Email: " ok 83 - Format "%{requires}_" should output "Requires: " ok 84 - Format "%{conflicts}_" should output "Conflicts:" ok 85 - Format "%H" should output "123456789" ok 86 - Format "%h" should output "123456789" ok 87 - Format "%{5}h" should output "12345" ok 88 - Format "%{7}h" should output "1234567" ok 89 - Format "%n" should output "foo" ok 90 - Format "%n" should output "bar" ok 91 - Format "%o" should output "foo" ok 92 - Format "%o" should output "bar" ok 93 - Format "%c" should output "larry " ok 94 - Format "%{n}c" should output "damian" ok 95 - Format "%{name}c" should output "chip" ok 96 - Format "%{e}c" should output "larry@example.com" ok 97 - Format "%{email}c" should output "damian@example.com" ok 98 - Format "%{date}c" should output "2014-09-06 07:16:48 -0700" ok 99 - Format "%{date:rfc}c" should output "Sat, 06 Sep 2014 07:16:48 -0700" ok 100 - Format "%{d:long}c" should output "September 6, 2014 7:16:48 AM PDT" ok 101 - Format "%{d:cldr:HH'h' mm'm'}c" should output "07h 16m" ok 102 - Format "%{d:strftime:%a at %H:%M:%S}c" should output "Sat at 07:16:48" ok 103 - Format "%p" should output "larry " ok 104 - Format "%{n}p" should output "damian" ok 105 - Format "%{name}p" should output "chip" ok 106 - Format "%{e}p" should output "larry@example.com" ok 107 - Format "%{email}p" should output "damian@example.com" ok 108 - Format "%{date}p" should output "2014-09-05 07:16:48 -0700" ok 109 - Format "%{date:rfc}p" should output "Fri, 05 Sep 2014 07:16:48 -0700" ok 110 - Format "%{d:long}p" should output "September 5, 2014 7:16:48 AM PDT" ok 111 - Format "%{d:cldr:HH'h' mm'm'}p" should output "07h 16m" ok 112 - Format "%{d:strftime:%a at %H:%M:%S}p" should output "Fri at 07:16:48" ok 113 - Format "%t" should output "" ok 114 - Format "%t" should output " @foo" ok 115 - Format "%t" should output " @foo, @bar" ok 116 - Format "%{|}t" should output "" ok 117 - Format "%{|}t" should output " @foo" ok 118 - Format "%{|}t" should output " @foo|@bar" ok 119 - Format "%T" should output "" ok 120 - Format "%T" should output " (@foo)" ok 121 - Format "%T" should output " (@foo, @bar)" ok 122 - Format "%{|}T" should output "" ok 123 - Format "%{|}T" should output " (@foo)" ok 124 - Format "%{|}T" should output " (@foo|@bar)" ok 125 - Format "%r" should output "" ok 126 - Format "%r" should output " foo" ok 127 - Format "%r" should output " foo, bar" ok 128 - Format "%{|}r" should output "" ok 129 - Format "%{|}r" should output " foo" ok 130 - Format "%{|}r" should output " foo|bar" ok 131 - Format "%R" should output "" ok 132 - Format "%R" should output "Requires: foo[newline]" ok 133 - Format "%R" should output "Requires: foo, bar[newline]" ok 134 - Format "%{|}R" should output "" ok 135 - Format "%{|}R" should output "Requires: foo[newline]" ok 136 - Format "%{|}R" should output "Requires: foo|bar[newline]" ok 137 - Format "%x" should output "" ok 138 - Format "%x" should output " foo" ok 139 - Format "%x" should output " foo, bax" ok 140 - Format "%{|}x" should output "" ok 141 - Format "%{|}x" should output " foo" ok 142 - Format "%{|}x" should output " foo|bax" ok 143 - Format "%X" should output "" ok 144 - Format "%X" should output "Conflicts: foo[newline]" ok 145 - Format "%X" should output "Conflicts: foo, bar[newline]" ok 146 - Format "%{|}X" should output "" ok 147 - Format "%{|}X" should output "Conflicts: foo[newline]" ok 148 - Format "%{|}X" should output "Conflicts: foo|bar[newline]" ok 149 - Format "%{yellow}C" should output "" ok 150 - Format "%{:event}C" should output "" ok 151 - Format "%v" should output "[newline]" ok 152 - Format "%%" should output "%" ok 153 - Format "%s" should output "hi there" ok 154 - Format "%s" should output "hi there" ok 155 - Format "%s" should output "subject line" ok 156 - Format "%{ }s" should output " hi there" ok 157 - Format "%{xx}s" should output "xxhi there" ok 158 - Format "%b" should output "" ok 159 - Format "%b" should output "yo" ok 160 - Format "%b" should output "first graph[newline][newline]second graph[newline][newline]" ok 161 - Format "%{ }b" should output "" ok 162 - Format "%{xxx }b" should output "xxx yo" ok 163 - Format "%{x}b" should output "xfirst graph[newline]x[newline]xsecond graph[newline]x[newline]" ok 164 - Format "%{ }b" should output " yo" ok 165 - Format "%B" should output "hi there" ok 166 - Format "%B" should output "hi there[newline]yo" ok 167 - Format "%B" should output "subject line[newline][newline]first graph[newline][newline]second graph[newline][newline]" ok 168 - Format "%{ }B" should output " hi there" ok 169 - Format "%{xxx }B" should output "xxx hi there[newline]xxx yo" ok 170 - Format "%{x}B" should output "xsubject line[newline]x[newline]xfirst graph[newline]x[newline]xsecond graph[newline]x[newline]" ok 171 - Format "%{ }B" should output " hi there [newline] yo" ok 172 - Format "%{change}a" should output "change lolz[newline]" ok 173 - Format "%{change_id}a" should output "change_id 000011112222333444[newline]" ok 174 - Format "%{event}a" should output "event deploy[newline]" ok 175 - Format "%{tags}a" should output "tags @beta, @gamma[newline]" ok 176 - Format "%{requires}a" should output "requires foo, bar[newline]" ok 177 - Format "%{conflicts}a" should output "" ok 178 - Format "%{committer_name}a" should output "committer_name larry[newline]" ok 179 - Format "%{committed_at}a" should output "committed_at 2014-09-06T14:16:48Z[newline]" ok 180 - Should get exception for format "%_" ok 181 - %_ error ident should be "format" ok 182 - %_ error message should be correct ok 183 - Should get exception for unknown label in format "%_" ok 184 - Invalid %_ label error ident should be "format" ok 185 - Invalid %_ label error message should be correct ok 186 - Instantiate with abbrev => 4 ok 187 - %h should respect abbrev ok 188 - %H should not respect abbrev ok 189 - Instantiate with date_format => "rfc" ok 190 - %{date}c should respect the date_format attribute ok 191 - %{iso}c should override the date_format attribute ok 192 - Should get exception for unknown attribute passed to %a ok 193 - %a error ident should be "format" ok 194 - %a error message should be correct ok 195 - Format "%{yellow}C" should output yellow ok 196 - Format "%{red}C" should output red ok 197 - Format "%{blue}C" should output blue ok 198 - Format "%{cyan}C" should output cyan ok 199 - Format "%{magenta}C" should output magenta ok 200 - Format "%{:event}C" on "deploy" should output green ok 201 - Format "%{:event}C" on "revert" should output blue ok 202 - Format "%{:event}C" on "fail" should output red ok 203 - Instantiate with format "full" again ok 204 - Format "full" should output correctly with color ok 205 - Instantiate with format "long" again ok 206 - Format "long" should output correctly with color ok 207 - Instantiate with format "medium" again ok 208 - Format "medium" should output correctly with color ok 209 - Instantiate with format "short" again ok 210 - Format "short" should output correctly with color ok 211 - Instantiate with format "oneline" again ok 212 - Format "oneline" should output correctly with color ok 213 - Should get an error for an invalid color ok 214 - Invalid color error ident should be "format" ok 215 - Invalid color error message should be correct ok 216 - Should get exception for unititialied db ok 217 - Uninit db error ident should be "log" ok 218 - Uninit db exit val should be 1 ok 219 - Uninit db error message should be correct ok 220 - Should have passed undef to engine_for_target ok 221 - Should get error for empty event table ok 222 - no events error ident should be "log" ok 223 - no events exit val should be 1 ok 224 - no events error message should be correct ok 225 - Search should have been limited to one row ok 226 - Should have passed undef to engine_for_target again ok 227 - Execute log ok 228 - Should have passed undef to engine_for_target once more ok 229 - The proper args should have been passed to search_events ok 230 - The change should have been paged ok 231 - Execute with target arg ok 232 - target arg should have been passed to engine_for_target ok 233 - The proper args should have been passed to search_events ok 234 - The change should have been paged ok 235 - 'log with attributes' isa 'App::Sqitch::Command::log' ok 236 - Execute log with attributes ok 237 - Should have passed target to engine_for_target ok 238 - All params should have been passed to search_events ok 239 - Both changes should have been paged ok 240 - Execute log with attributes ok 241 - Should have passed target to engine_for_target ok 242 - Should have got warning for two targets ok 243 - 'log with bad format' isa 'App::Sqitch::Command::log' ok 244 - Should get an exception for a bad format code ok 245 - bad format code format error ident should be "format" ok 246 - bad format code format error message should be correct ok 247 - Should have passed target to engine_for_target again not ok 248 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/248 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Eval went very, very wrong: { my $default_for__5fwas_5fset = ${$_[1]->{"\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\$trigger_for_deploy_5fdir"}}; no warnings 'closure'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq 'HASH' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"_engine\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"config\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_client\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_host\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\A-?[0-9]+\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_port\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_username\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"deploy_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"extension\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"pager\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"plan\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"revert_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"sysuser\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"top_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_email\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"verify_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \&App::Sqitch::new } 1; Useless use of array element in void context at (eval 203) line 77. at (eval 203) line 77. eval '{ my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; no warnings \'closure\'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"_engine\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"config\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_client\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_host\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_port\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_username\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"extension\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"pager\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"plan\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"revert_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"sysuser\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"top_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_email\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"verify_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \\&App::Sqitch::new } 1; ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x10104e840)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 Sub::Quote::unquote_sub(CODE(0x1002b30a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 Sub::Defer::undefer_sub(CODE(0x10045be68)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 App::Sqitch::new("App::Sqitch", "_engine", "mysql") called at t/mysql.t line 34 # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 255 just after 2. t/mysql.t ........... ok 1 - require App::Sqitch::Engine::mysql; ok 2 - config_vars should return three vars Dubious, test returned 255 (wstat 65280, 0xff00) All 2 subtests passed Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Useless use of array element in void context at (eval 207) line 70. Useless use of array element in void context at (eval 208) line 70. t/options.t ......... 1..26 ok 1 - use App::Sqitch; ok 2 - App::Sqitch->can('_split_args') ok 3 - Split on command-only ok 4 - Split on core option plus command ok 5 - Split on core option plus command plus command option ok 6 - Option with arg should work ok 7 - Option with arg should work ok 8 - Should handle no command ok 9 - Spliting args when using bundling should work ok 10 - _pod2usage should be called ok 11 - Should exit for invalid option ok 12 - App::Sqitch->can('_parse_core_opts') ok 13 - Should have default config for no options ok 14 - Ask for help ok 15 - Should have been helped ok 16 - Ask for man ok 17 - Should have been manned ok 18 - Should parse lots of options ok 19 - 'top_dir' isa 'Path::Class::Dir' ok 20 - 'deploy_dir' isa 'Path::Class::Dir' ok 21 - 'revert_dir' isa 'Path::Class::Dir' ok 22 - 'verify_dir' isa 'Path::Class::Dir' ok 23 - --quiet should trump verbosity. ok 24 - Short options should work ok 25 - Run _pod2usage ok 26 - Proper args should have been passed to Pod::Usage ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Eval went very, very wrong: { my $default_for__5fwas_5fset = ${$_[1]->{"\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\$trigger_for_deploy_5fdir"}}; no warnings 'closure'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq 'HASH' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"_engine\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"config\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_client\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_host\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\A-?[0-9]+\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_port\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_username\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"deploy_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"extension\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"pager\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"plan\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"revert_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"sysuser\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"top_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_email\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"verify_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \&App::Sqitch::new } 1; Useless use of array element in void context at (eval 212) line 77. at (eval 212) line 77. eval '{ my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; no warnings \'closure\'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"_engine\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"config\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_client\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_host\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_port\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_username\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"extension\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"pager\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"plan\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"revert_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"sysuser\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"top_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_email\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"verify_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \\&App::Sqitch::new } 1; ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010f8c98)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 Sub::Quote::unquote_sub(CODE(0x101c128b0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 Sub::Defer::undefer_sub(CODE(0x1009bbc58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 App::Sqitch::new("App::Sqitch", "_engine", "oracle") called at t/oracle.t line 82 # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 255 just after 2. t/oracle.t .......... ok 1 - require App::Sqitch::Engine::oracle; ok 2 - config_vars should return three vars Dubious, test returned 255 (wstat 65280, 0xff00) All 2 subtests passed Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Eval went very, very wrong: { my $default_for__5fwas_5fset = ${$_[1]->{"\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\$trigger_for_deploy_5fdir"}}; no warnings 'closure'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq 'HASH' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"_engine\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"config\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_client\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_host\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\A-?[0-9]+\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_port\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_username\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"deploy_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"extension\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"pager\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"plan\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"revert_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"sysuser\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"top_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_email\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"verify_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \&App::Sqitch::new } 1; Useless use of array element in void context at (eval 212) line 77. at (eval 212) line 77. eval '{ my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; no warnings \'closure\'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"_engine\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"config\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_client\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_host\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_port\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_username\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"extension\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"pager\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"plan\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"revert_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"sysuser\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"top_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_email\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"verify_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \\&App::Sqitch::new } 1; ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010f8c98)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 Sub::Quote::unquote_sub(CODE(0x101bf2748)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 Sub::Defer::undefer_sub(CODE(0x1009bbc58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 App::Sqitch::new("App::Sqitch", "_engine", "pg") called at t/pg.t line 35 # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 255 just after 2. t/pg.t .............. ok 1 - require App::Sqitch::Engine::pg; ok 2 - config_vars should return three vars Dubious, test returned 255 (wstat 65280, 0xff00) All 2 subtests passed Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Useless use of array element in void context at (eval 206) line 77. Useless use of array element in void context at (eval 206) line 438. Useless use of array element in void context at (eval 206) line 515. Useless use of array element in void context at (eval 207) line 71. Useless use of array element in void context at (eval 207) line 107. Useless use of array element in void context at (eval 207) line 256. Useless use of array element in void context at (eval 209) line 298, line 1. Useless use of array element in void context at (eval 210) line 262, line 2. Useless use of array element in void context at (eval 212) line 597, line 6. Useless use of array element in void context at (eval 212) line 633, line 6. Useless use of array element in void context at (eval 212) line 906, line 6. Useless use of array element in void context at (eval 213) line 61, line 8. Useless use of array element in void context at (eval 213) line 441, line 8. Useless use of array element in void context at (eval 213) line 637, line 8. Useless use of array element in void context at (eval 343) line 57, line 4. Useless use of array element in void context at (eval 343) line 206, line 4. Useless use of array element in void context at (eval 343) line 278, line 4. Useless use of array element in void context at (eval 343) line 314, line 4. Useless use of array element in void context at (eval 343) line 350, line 4. Useless use of array element in void context at (eval 343) line 386, line 4. Useless use of array element in void context at (eval 348) line 43, line 4. Useless use of array element in void context at (eval 350) line 43. Useless use of array element in void context at (eval 460) line 43. Useless use of array element in void context at (eval 516) line 43. t/plan.t ............ ok 1 - use App::Sqitch::Plan; ok 2 - App::Sqitch::Plan->can(...) ok 3 - An object of class 'App::Sqitch::Plan' isa 'App::Sqitch::Plan' ok 4 - Should parse simple "widgets.plan" ok 5 - Should have sorted changes ok 6 - 'changes' isa 'ARRAY' ok 7 - 'lines' isa 'ARRAY' ok 8 - All "widgets.plan" changes should be parsed ok 9 - All "widgets.plan" lines should be parsed ok 10 - Should parse multi-tagged "multi.plan" ok 11 - Should have sorted changes twice ok 12 - Should have captured the multi pragmas ok 13 - Should have "multi.plan" lines and changes ok 14 - Should read plan with no tags ok 15 - Should have sorted changes ok 16 - Should have captured the changes-only pragmas ok 17 - Should have lines and changes for tagless plan ok 18 - Should die on plan with bad change name ok 19 - Bad change name error ident should be "parse" ok 20 - And the bad change name error message should be correct ok 21 - Should not have sorted changes ok 22 - Should die on plan with bad name "+^foo" ok 23 - Exception ident should be "parse" ok 24 - And "+^foo" should trigger the appropriate message ok 25 - Should not have sorted changes ok 26 - Should die on plan with bad name "@^foo" ok 27 - Exception ident should be "parse" ok 28 - And "@^foo" should trigger the appropriate message ok 29 - Should not have sorted changes ok 30 - Should die on plan with bad name "+foo^" ok 31 - Exception ident should be "parse" ok 32 - And "+foo^" should trigger the appropriate message ok 33 - Should not have sorted changes ok 34 - Should die on plan with bad name "@foo^" ok 35 - Exception ident should be "parse" ok 36 - And "@foo^" should trigger the appropriate message ok 37 - Should not have sorted changes ok 38 - Should die on plan with bad name "+foo^6" ok 39 - Exception ident should be "parse" ok 40 - And "+foo^6" should trigger the appropriate message ok 41 - Should not have sorted changes ok 42 - Should die on plan with bad name "@foo^6" ok 43 - Exception ident should be "parse" ok 44 - And "@foo^6" should trigger the appropriate message ok 45 - Should not have sorted changes ok 46 - Should die on plan with bad name "+foo^666" ok 47 - Exception ident should be "parse" ok 48 - And "+foo^666" should trigger the appropriate message ok 49 - Should not have sorted changes ok 50 - Should die on plan with bad name "@foo^666" ok 51 - Exception ident should be "parse" ok 52 - And "@foo^666" should trigger the appropriate message ok 53 - Should not have sorted changes ok 54 - Should die on plan with bad name "+%hi" ok 55 - Exception ident should be "parse" ok 56 - And "+%hi" should trigger the appropriate message ok 57 - Should not have sorted changes ok 58 - Should die on plan with bad name "@%hi" ok 59 - Exception ident should be "parse" ok 60 - And "@%hi" should trigger the appropriate message ok 61 - Should not have sorted changes ok 62 - Should die on plan with bad name "+hi!" ok 63 - Exception ident should be "parse" ok 64 - And "+hi!" should trigger the appropriate message ok 65 - Should not have sorted changes ok 66 - Should die on plan with bad name "@hi!" ok 67 - Exception ident should be "parse" ok 68 - And "@hi!" should trigger the appropriate message ok 69 - Should not have sorted changes ok 70 - Should die on plan with bad name "+foo@bar" ok 71 - Exception ident should be "parse" ok 72 - And "+foo@bar" should trigger the appropriate message ok 73 - Should not have sorted changes ok 74 - Should die on plan with bad name "@foo@bar" ok 75 - Exception ident should be "parse" ok 76 - And "@foo@bar" should trigger the appropriate message ok 77 - Should not have sorted changes ok 78 - Should die on plan with bad name "+foo:bar" ok 79 - Exception ident should be "parse" ok 80 - And "+foo:bar" should trigger the appropriate message ok 81 - Should not have sorted changes ok 82 - Should die on plan with bad name "@foo:bar" ok 83 - Exception ident should be "parse" ok 84 - And "@foo:bar" should trigger the appropriate message ok 85 - Should not have sorted changes ok 86 - Should die on plan with bad name "++foo" ok 87 - Exception ident should be "parse" ok 88 - And "++foo" should trigger the appropriate message ok 89 - Should not have sorted changes ok 90 - Should die on plan with bad name "@+foo" ok 91 - Exception ident should be "parse" ok 92 - And "@+foo" should trigger the appropriate message ok 93 - Should not have sorted changes ok 94 - Should die on plan with bad name "+-foo" ok 95 - Exception ident should be "parse" ok 96 - And "+-foo" should trigger the appropriate message ok 97 - Should not have sorted changes ok 98 - Should die on plan with bad name "@-foo" ok 99 - Exception ident should be "parse" ok 100 - And "@-foo" should trigger the appropriate message ok 101 - Should not have sorted changes ok 102 - Should die on plan with bad name "+@foo" ok 103 - Exception ident should be "parse" ok 104 - And "+@foo" should trigger the appropriate message ok 105 - Should not have sorted changes ok 106 - Should die on plan with bad name "@@foo" ok 107 - Exception ident should be "parse" ok 108 - And "@@foo" should trigger the appropriate message ok 109 - Should not have sorted changes ok 110 - Should parse "foo" ok 111 - Should have captured the foo pragmas ok 112 - Should have pragmas in plan with change "foo" ok 113 - Should parse "@foo" ok 114 - Should have pragmas in plan with tag "foo" ok 115 - Should have line and change for "@foo" ok 116 - Should parse "12" ok 117 - Should have captured the 12 pragmas ok 118 - Should have pragmas in plan with change "12" ok 119 - Should parse "@12" ok 120 - Should have pragmas in plan with tag "12" ok 121 - Should have line and change for "@12" ok 122 - Should parse "t" ok 123 - Should have captured the t pragmas ok 124 - Should have pragmas in plan with change "t" ok 125 - Should parse "@t" ok 126 - Should have pragmas in plan with tag "t" ok 127 - Should have line and change for "@t" ok 128 - Should parse "6" ok 129 - Should have captured the 6 pragmas ok 130 - Should have pragmas in plan with change "6" ok 131 - Should parse "@6" ok 132 - Should have pragmas in plan with tag "6" ok 133 - Should have line and change for "@6" ok 134 - Should parse "阱阪阬" ok 135 - Should have captured the 阱阪阬 pragmas ok 136 - Should have pragmas in plan with change "阱阪阬" ok 137 - Should parse "@阱阪阬" ok 138 - Should have pragmas in plan with tag "阱阪阬" ok 139 - Should have line and change for "@阱阪阬" ok 140 - Should parse "foo/bar" ok 141 - Should have captured the foo/bar pragmas ok 142 - Should have pragmas in plan with change "foo/bar" ok 143 - Should parse "@foo/bar" ok 144 - Should have pragmas in plan with tag "foo/bar" ok 145 - Should have line and change for "@foo/bar" ok 146 - Should parse "beta1" ok 147 - Should have captured the beta1 pragmas ok 148 - Should have pragmas in plan with change "beta1" ok 149 - Should parse "@beta1" ok 150 - Should have pragmas in plan with tag "beta1" ok 151 - Should have line and change for "@beta1" ok 152 - Should parse "foo_" ok 153 - Should have captured the foo_ pragmas ok 154 - Should have pragmas in plan with change "foo_" ok 155 - Should parse "@foo_" ok 156 - Should have pragmas in plan with tag "foo_" ok 157 - Should have line and change for "@foo_" ok 158 - Should parse "_foo" ok 159 - Should have captured the _foo pragmas ok 160 - Should have pragmas in plan with change "_foo" ok 161 - Should parse "@_foo" ok 162 - Should have pragmas in plan with tag "_foo" ok 163 - Should have line and change for "@_foo" ok 164 - Should parse "v1.0-1b" ok 165 - Should have captured the v1.0-1b pragmas ok 166 - Should have pragmas in plan with change "v1.0-1b" ok 167 - Should parse "@v1.0-1b" ok 168 - Should have pragmas in plan with tag "v1.0-1b" ok 169 - Should have line and change for "@v1.0-1b" ok 170 - Should parse "v1.2-1" ok 171 - Should have captured the v1.2-1 pragmas ok 172 - Should have pragmas in plan with change "v1.2-1" ok 173 - Should parse "@v1.2-1" ok 174 - Should have pragmas in plan with tag "v1.2-1" ok 175 - Should have line and change for "@v1.2-1" ok 176 - Should parse "v1.2+1" ok 177 - Should have captured the v1.2+1 pragmas ok 178 - Should have pragmas in plan with change "v1.2+1" ok 179 - Should parse "@v1.2+1" ok 180 - Should have pragmas in plan with tag "v1.2+1" ok 181 - Should have line and change for "@v1.2+1" ok 182 - Should parse "v1.2_1" ok 183 - Should have captured the v1.2_1 pragmas ok 184 - Should have pragmas in plan with change "v1.2_1" ok 185 - Should parse "@v1.2_1" ok 186 - Should have pragmas in plan with tag "v1.2_1" ok 187 - Should have line and change for "@v1.2_1" ok 188 - Should have sorted changes 18 times ok 189 - Should die on plan with reserved tag "@HEAD" ok 190 - @HEAD exception should have ident "plan" ok 191 - And the @HEAD error message should be correct ok 192 - Should have sorted changes once ok 193 - Should die on plan with reserved tag "@ROOT" ok 194 - @ROOT exception should have ident "plan" ok 195 - And the @ROOT error message should be correct ok 196 - Should have sorted @ROOT changes nonce ok 197 - Should die on plan with reserved tag "@FIRST" ok 198 - @FIRST exception should have ident "plan" ok 199 - And the @FIRST error message should be correct ok 200 - Should have sorted @FIRST changes nonce ok 201 - Should die on plan with reserved tag "@LAST" ok 202 - @LAST exception should have ident "plan" ok 203 - And the @LAST error message should be correct ok 204 - Should have sorted @LAST changes nonce ok 205 - Should die on plan with SHA1 change name ok 206 - The SHA1 error ident should be "parse" ok 207 - And the SHA1 error message should be correct ok 208 - Should have sorted changes nonce ok 209 - Should die on plan with tag but no preceding change ok 210 - The missing change error ident should be "parse" ok 211 - And the missing change error message should be correct ok 212 - Should have sorted changes nonce ok 213 - Should die on plan with dupe tag ok 214 - The dupe tag error ident should be "parse" ok 215 - And the missing change error message should be correct ok 216 - Should have sorted changes twice ok 217 - Should die on plan with dupe change ok 218 - The dupe change error ident should be "parse" ok 219 - And the dupe change error message should be correct ok 220 - Should have sorted changes once ok 221 - Should die on invalid dependency ok 222 - The invalid dependency error ident should be "parse" ok 223 - And the invalid dependency error message should be correct ok 224 - Should have sorted changes nonce ok 225 - Should die on change with no timestamp ok 226 - The missing timestamp error ident should be "parse" ok 227 - And the missing timestamp error message should be correct ok 228 - Should have sorted changes nonce ok 229 - Should die on change with no planner ok 230 - The missing parsener error ident should be "parse" ok 231 - And the missing planner error message should be correct ok 232 - Should have sorted changes nonce ok 233 - Should die on change with no timestamp or planner ok 234 - The missing timestamp or parsener error ident should be "parse" ok 235 - And the missing timestamp or planner error message should be correct ok 236 - Should have sorted changes nonce ok 237 - Should parse plan with pragmas" ok 238 - Should have sorted changes once ok 239 - Should have captured all of the pragmas ok 240 - Should have "multi.plan" lines and changes ok 241 - Should parse plan with deploy and revert operators ok 242 - Should have sorted changes twice ok 243 - Should have captured the deploy-and-revert pragmas ok 244 - Should have "deploy-and-revert.plan" lines and changes ok 245 - Should get exception for nonexistent plan file ok 246 - Nonexistent plan file ident should be "plan" ok 247 - Nonexistent plan file message should be correct ok 248 - 'Plan with sqitch with plan file with dependencies' isa 'App::Sqitch::Plan' ok 249 - Load plan with dependencies file ok 250 - The changes should include the dependencies ok 251 - Should have sorted changes twice ok 252 - 'Plan with sqitch with plan file with project deps' isa 'App::Sqitch::Plan' ok 253 - Load plan with project deps file ok 254 - The changes should include the cross-project deps ok 255 - Should have sorted changes twice ok 256 - 'Plan with sqitch with plan with tag dependencies' isa 'App::Sqitch::Plan' ok 257 - Should get an exception for tag with dependencies ok 258 - The tag dependencies error ident should be "plan" ok 259 - And the tag dependencies error message should be correct ok 260 - 'Plan with sqitch with plan file' isa 'App::Sqitch::Plan' ok 261 - Lines should be parsed from file ok 262 - Changes should be parsed from file ok 263 - Should get all tags from tags() ok 264 - Should have sorted changes twice ok 265 - Load should parse plan from file ok 266 - Should have captured the multi pragmas ok 267 - And the parsed file should have lines and changes ok 268 - Should have sorted changes twice ok 269 - App::Sqitch::Plan->can(...) ok 270 - Position should start at -1 ok 271 - Current should be undef ok 272 - Get next change ok 273 - 'First change' isa 'App::Sqitch::Plan::Change' ok 274 - It should be the first change ok 275 - Position should be at 0 ok 276 - Count should be 4 ok 277 - Current should be current ok 278 - Should get first change from change_at(0) ok 279 - Peek to next change ok 280 - 'Peeked change' isa 'App::Sqitch::Plan::Change' ok 281 - Peeked change should be second change ok 282 - last() should return last change ok 283 - Current should still be current ok 284 - Peek should still be next ok 285 - Next should be the second change ok 286 - Position should be at 1 ok 287 - Should get second change from change_at(1) ok 288 - Peek should return an object ok 289 - 'Third change' isa 'App::Sqitch::Plan::Change' ok 290 - It should be the foo tag ok 291 - Current should be the second change ok 292 - Should get third change next ok 293 - Position should be at 2 ok 294 - Current should be third change ok 295 - Should get third change from change_at(1) ok 296 - Get fourth change ok 297 - 'Fourth change' isa 'App::Sqitch::Plan::Change' ok 298 - Fourth change should be "hey-there" ok 299 - Position should be at 3 ok 300 - Peek should return undef ok 301 - Next should return undef ok 302 - Position should be at 7 ok 303 - Next should still return undef ok 304 - Position should still be at 7 ok 305 - Reset the plan ok 306 - Position should be back at -1 ok 307 - Current should still be undef ok 308 - Next should return the first change again ok 309 - Position should be at 0 again ok 310 - Current should be first change ok 311 - Index of change should be 0 ok 312 - Plan should contain change ok 313 - Should be able to get change 0 by name ok 314 - Should be able to find change 0 by name ok 315 - Should be able to get change 0 by ID ok 316 - Should be able to find change 0 by ID ok 317 - Index of @bar should be 3 ok 318 - Plan should contain @bar ok 319 - Should be able to get hey-there via @bar ok 320 - Should be able to get hey-there via @bar ID ok 321 - Should be able to find hey-there via @bar ok 322 - Should be able to find hey-there via @bar ID ok 323 - Seek to the "@bar" change ok 324 - Position should be at 3 again ok 325 - Current should be fourth again ok 326 - Index of you should be 1 ok 327 - Plan should contain "you" ok 328 - Should be able to get change 1 by name ok 329 - Should be able to find change 1 by name ok 330 - Seek to the "you" change ok 331 - Position should be at 1 again ok 332 - Current should be second again ok 333 - Index of baz should be undef ok 334 - Plan should not contain "baz" ok 335 - Index of @baz should be 3 ok 336 - Plan should contain @baz ok 337 - Seek to the "baz" change ok 338 - Position should be at 3 again ok 339 - Current should be fourth again ok 340 - Should still get first change from change_at(0) ok 341 - Should still get second change from change_at(1) ok 342 - Should still get third change from change_at(1) ok 343 - Should die seeking invalid change ok 344 - Invalid seek change error ident should be "plan" ok 345 - And the failure message should be correct ok 346 - All should return all changes ok 347 - Reset the plan again ok 348 - Change hey should be passed to do sub ok 349 - Change hey should be the topic in do sub ok 350 - Change you should be passed to do sub ok 351 - Change you should be the topic in do sub ok 352 - Change this/rocks should be passed to do sub ok 353 - Change this/rocks should be the topic in do sub ok 354 - Change hey-there should be passed to do sub ok 355 - Change hey-there should be the topic in do sub ok 356 - 'search_changes() should return a code ref' isa 'CODE' ok 357 - All the changes should be returned in the proper order ok 358 - Direction "DESC" should work ok 359 - Should get error for invalid direction ok 360 - Invalid direction error ident should be "DEV" ok 361 - Invalid direction error message should be correct ok 362 - Direction "asc" should work ok 363 - Search by change name should work ok 364 - Search by change name should work as a regex ok 365 - Search by change name should with a character class ok 366 - Search by planner should work ok 367 - Search by planner should work as a regex ok 368 - Search by operation "deploy" should work ok 369 - Search by operation "rever" should return nothing ok 370 - Search by operation "DEPLOY" should now return two changes ok 371 - Search by operation "REVERT" should return the other two ok 372 - Should get an error for unknown operation ok 373 - Unknown operation error ident should be "DEV" ok 374 - Unknown operation error message should be correct ok 375 - Search with offset 2 should work ok 376 - Search with offset 2, limit 1 should work ok 377 - Search with offset 3 and dierction "desc" should work ok 378 - Search with offset 2, limit 1, dierction "desc" should work ok 379 - App::Sqitch::Plan->can('write_to') ok 380 - plan.out does not exist ok 381 - Write out the file ok 382 - plan.out exists ok 383 - The contents should look right ok 384 - Write out the file from "this/rocks" ok 385 - Plan should have been written from "this/rocks" through tags at end ok 386 - Write the file up to "you" ok 387 - Plan should have been written through "you" and its tags ok 388 - Write from "@foo" to "this/rocks" ok 389 - Plan should have been written from "@foo" to "this/rocks" ok 390 - Write from "hey" to "@foo" ok 391 - Plan should have been written from "hey" through "@foo" ok 392 - App::Sqitch::Plan->can('_is_valid') ok 393 - Should find "^foo" invalid ok 394 - Invalid name "^foo" error ident should be "plan" ok 395 - And the "^foo" error message should be correct ok 396 - Should find "foo^" invalid ok 397 - Invalid name "foo^" error ident should be "plan" ok 398 - And the "foo^" error message should be correct ok 399 - Should find "foo^6" invalid ok 400 - Invalid name "foo^6" error ident should be "plan" ok 401 - And the "foo^6" error message should be correct ok 402 - Should find "foo^666" invalid ok 403 - Invalid name "foo^666" error ident should be "plan" ok 404 - And the "foo^666" error message should be correct ok 405 - Should find "%hi" invalid ok 406 - Invalid name "%hi" error ident should be "plan" ok 407 - And the "%hi" error message should be correct ok 408 - Should find "hi!" invalid ok 409 - Invalid name "hi!" error ident should be "plan" ok 410 - And the "hi!" error message should be correct ok 411 - Should find "foo@bar" invalid ok 412 - Invalid name "foo@bar" error ident should be "plan" ok 413 - And the "foo@bar" error message should be correct ok 414 - Should find "foo:bar" invalid ok 415 - Invalid name "foo:bar" error ident should be "plan" ok 416 - And the "foo:bar" error message should be correct ok 417 - Should find "+foo" invalid ok 418 - Invalid name "+foo" error ident should be "plan" ok 419 - And the "+foo" error message should be correct ok 420 - Should find "-foo" invalid ok 421 - Invalid name "-foo" error ident should be "plan" ok 422 - And the "-foo" error message should be correct ok 423 - Should find "@foo" invalid ok 424 - Invalid name "@foo" error ident should be "plan" ok 425 - And the "@foo" error message should be correct ok 426 - Name "foo" sould be valid ok 427 - Name "12" sould be valid ok 428 - Name "t" sould be valid ok 429 - Name "6" sould be valid ok 430 - Name "阱阪阬" sould be valid ok 431 - Name "foo/bar" sould be valid ok 432 - Name "beta1" sould be valid ok 433 - Name "v1.2-1" sould be valid ok 434 - Name "v1.2+1" sould be valid ok 435 - Name "v1.2_1" sould be valid ok 436 - Add tag "w00t" ok 437 - Should have 4 changes ok 438 - Should find "@w00t" in plan ok 439 - Should find "@w00t" at index 3 ok 440 - Last change should be "hey-there" ok 441 - The w00t tag should be on the last change ok 442 - An object of class 'App::Sqitch::Plan::Tag' isa 'App::Sqitch::Plan::Tag' ok 443 - The returned tag should be @w00t ok 444 - The @w00t change should be the last change ok 445 - Write out the file again ok 446 - The contents should include the "w00t" tag ok 447 - Add tag "@alpha" ok 448 - Should find "@alpha" in plan ok 449 - Should find "@alpha" at index 3 ok 450 - The returned tag should be @alpha ok 451 - The @alpha change should be the last change ok 452 - Tag change "you" ok 453 - Should still have 4 changes ok 454 - Should find "@blarney" in plan ok 455 - Should find "@blarney" at index 1 ok 456 - The blarney tag should be on the second change ok 457 - An object of class 'App::Sqitch::Plan::Tag' isa 'App::Sqitch::Plan::Tag' ok 458 - The returned tag should be @blarney ok 459 - The @blarney change should be the second change ok 460 - Should get error trying to add duplicate tag ok 461 - Duplicate tag error ident should be "plan" ok 462 - And the error message should report it as a dupe ok 463 - Should get error for invalid tag "^foo" ok 464 - Invalid name "^foo" error ident should be "plan" ok 465 - And the "^foo" error message should be correct ok 466 - Should get error for invalid tag "foo^" ok 467 - Invalid name "foo^" error ident should be "plan" ok 468 - And the "foo^" error message should be correct ok 469 - Should get error for invalid tag "foo^6" ok 470 - Invalid name "foo^6" error ident should be "plan" ok 471 - And the "foo^6" error message should be correct ok 472 - Should get error for invalid tag "foo^666" ok 473 - Invalid name "foo^666" error ident should be "plan" ok 474 - And the "foo^666" error message should be correct ok 475 - Should get error for invalid tag "%hi" ok 476 - Invalid name "%hi" error ident should be "plan" ok 477 - And the "%hi" error message should be correct ok 478 - Should get error for invalid tag "hi!" ok 479 - Invalid name "hi!" error ident should be "plan" ok 480 - And the "hi!" error message should be correct ok 481 - Should get error for invalid tag "foo@bar" ok 482 - Invalid name "foo@bar" error ident should be "plan" ok 483 - And the "foo@bar" error message should be correct ok 484 - Should get error for invalid tag "foo:bar" ok 485 - Invalid name "foo:bar" error ident should be "plan" ok 486 - And the "foo:bar" error message should be correct ok 487 - Should get error for invalid tag "+foo" ok 488 - Invalid name "+foo" error ident should be "plan" ok 489 - And the "+foo" error message should be correct ok 490 - Should get error for invalid tag "-foo" ok 491 - Invalid name "-foo" error ident should be "plan" ok 492 - And the "-foo" error message should be correct ok 493 - Should get error for invalid tag "foo\#bar" ok 494 - Invalid name "foo\#bar" error ident should be "plan" ok 495 - And the "foo\#bar" error message should be correct ok 496 - Should get error for reserved tag "HEAD" ok 497 - Reserved tag "HEAD" error ident should be "plan" ok 498 - And the reserved tag "HEAD" message should be correct ok 499 - Should get error for reserved tag "ROOT" ok 500 - Reserved tag "ROOT" error ident should be "plan" ok 501 - And the reserved tag "ROOT" message should be correct ok 502 - Should get error for reserved tag "FIRST" ok 503 - Reserved tag "FIRST" error ident should be "plan" ok 504 - And the reserved tag "FIRST" message should be correct ok 505 - Should get error for reserved tag "LAST" ok 506 - Reserved tag "LAST" error ident should be "plan" ok 507 - And the reserved tag "LAST" message should be correct ok 508 - Should get error for a SHA1 tag ok 509 - SHA1 tag error ident should be "plan" ok 510 - And the reserved name error should be output ok 511 - Add change "booyah" ok 512 - Should have 5 changes ok 513 - Should find "booyah" in plan ok 514 - Should find "booyah" at index 4 ok 515 - Last change should be "booyah" ok 516 - An object of class 'App::Sqitch::Plan::Change' isa 'App::Sqitch::Plan::Change' ok 517 - Should have plain stringification of "booya" ok 518 - Write out the file again ok 519 - The contents should include the "booyah" change ok 520 - Add change "blow" ok 521 - Should have 6 changes ok 522 - Should find "blow" in plan ok 523 - Should find "blow" at index 5 ok 524 - Last change should be "blow" ok 525 - Should have nice stringification of "blow [booyah]" ok 526 - The new change should have been appended to the lines, too ok 527 - Add change "jive" with dupe dependency ok 528 - Should have 7 changes ok 529 - Should find "jive" in plan ok 530 - Should find "jive" at index 6 ok 531 - jive change should be "jive" ok 532 - Should have dependency "blow" ok 533 - Should have nice stringification of "jive [blow]" ok 534 - The new change should have been appended to the lines, too ok 535 - Add change "moo" with dupe dependencies ok 536 - Should have 8 changes ok 537 - Should find "moo" in plan ok 538 - Should find "moo" at index 7 ok 539 - moo change should be "moo" ok 540 - Should require "ext:whu" ok 541 - Should conflict with "blow" and "ext:whu" ok 542 - Should have nice stringification of "moo [ext:foo !blow !ext:whu]" ok 543 - The new change should have been appended to the lines, too ok 544 - Should get error trying to add duplicate change ok 545 - Duplicate change error ident should be "plan" ok 546 - And the error message should suggest "rework" ok 547 - Should get error for invalid change "^foo" ok 548 - Invalid name "^foo" error ident should be "plan" ok 549 - And the "^foo" error message should be correct ok 550 - Should get error for invalid change "foo^" ok 551 - Invalid name "foo^" error ident should be "plan" ok 552 - And the "foo^" error message should be correct ok 553 - Should get error for invalid change "foo^6" ok 554 - Invalid name "foo^6" error ident should be "plan" ok 555 - And the "foo^6" error message should be correct ok 556 - Should get error for invalid change "foo^666" ok 557 - Invalid name "foo^666" error ident should be "plan" ok 558 - And the "foo^666" error message should be correct ok 559 - Should get error for invalid change "%hi" ok 560 - Invalid name "%hi" error ident should be "plan" ok 561 - And the "%hi" error message should be correct ok 562 - Should get error for invalid change "hi!" ok 563 - Invalid name "hi!" error ident should be "plan" ok 564 - And the "hi!" error message should be correct ok 565 - Should get error for invalid change "foo@bar" ok 566 - Invalid name "foo@bar" error ident should be "plan" ok 567 - And the "foo@bar" error message should be correct ok 568 - Should get error for invalid change "foo:bar" ok 569 - Invalid name "foo:bar" error ident should be "plan" ok 570 - And the "foo:bar" error message should be correct ok 571 - Should get error for invalid change "+foo" ok 572 - Invalid name "+foo" error ident should be "plan" ok 573 - And the "+foo" error message should be correct ok 574 - Should get error for invalid change "-foo" ok 575 - Invalid name "-foo" error ident should be "plan" ok 576 - And the "-foo" error message should be correct ok 577 - Should get error for invalid change "@foo" ok 578 - Invalid name "@foo" error ident should be "plan" ok 579 - And the "@foo" error message should be correct ok 580 - Should get error for reserved name "HEAD" ok 581 - Reserved name "HEAD" error ident should be "plan" ok 582 - And the reserved name "HEAD" message should be correct ok 583 - Should get error for reserved name "ROOT" ok 584 - Reserved name "ROOT" error ident should be "plan" ok 585 - And the reserved name "ROOT" message should be correct ok 586 - Should get error for reserved name "FIRST" ok 587 - Reserved name "FIRST" error ident should be "plan" ok 588 - And the reserved name "FIRST" message should be correct ok 589 - Should get error for reserved name "LAST" ok 590 - Reserved name "LAST" error ident should be "plan" ok 591 - And the reserved name "LAST" message should be correct ok 592 - Should get failure for failed dependency ok 593 - Dependency error ident should be "plan" ok 594 - The dependency error should be correct ok 595 - Should get failure for invalid dependency ok 596 - Invalid dependency error ident should be "plan" ok 597 - The invalid dependency error should be correct ok 598 - Should get failure for invalid conflict ok 599 - Invalid conflict error ident should be "plan" ok 600 - The invalid conflict error should be correct ok 601 - Should get failure for failed tag dependency ok 602 - Tag dependency error ident should be "plan" ok 603 - The tag dependency error should be correct ok 604 - Should get error for a SHA1 change ok 605 - SHA1 tag error ident should be "plan" ok 606 - And the reserved name error should be output ok 607 - App::Sqitch::Plan->can('rework') ok 608 - Rework change "you" ok 609 - An object of class 'App::Sqitch::Plan::Change' isa 'App::Sqitch::Plan::Change' ok 610 - Reworked change should be "you" ok 611 - Get original "you" change ok 612 - It should also be named "you" ok 613 - And it should have the one rework tag ok 614 - The original file should now be named you@bar.sql ok 615 - It should require the previous "you" change ok 616 - The new "you" should have been appended to the lines, too ok 617 - Should find "you@HEAD" in plan ok 618 - It should be at position 8 ok 619 - The plan count should be 9 ok 620 - Tag @beta1 ok 621 - Rework change "you" again ok 622 - An object of class 'App::Sqitch::Plan::Change' isa 'App::Sqitch::Plan::Change' ok 623 - New reworked change should be "you" ok 624 - Get original "you" change again ok 625 - It should still be named "you" ok 626 - And it should have the one rework tag ok 627 - Get you@beta1 ok 628 - The second "you" should be named that ok 629 - And the second change should have the rework_tag "@beta1" ok 630 - But the new reworked change should have no rework tags ok 631 - It should require the previous "you" change ok 632 - The new reworking should have been appended to the lines ok 633 - Should find "you@HEAD" in plan ok 634 - It should be at position 9 ok 635 - The plan count should be 10 ok 636 - rework should die on nonexistent change ok 637 - Nonexistent change error ident should be "plan" ok 638 - And the error should suggest "sqitch add" ok 639 - rework_stpe should die on lack of intervening tag ok 640 - Missing tag error ident should be "plan" ok 641 - And the error should suggest "sqitch tag" ok 642 - rework should die on failed dependency ok 643 - Rework dependency error ident should be "plan" ok 644 - The rework dependency error should be correct ok 645 - Should get failure for invalid dependency ok 646 - Invalid dependency error ident should be "plan" ok 647 - The invalid dependency error should be correct ok 648 - Should get failure for invalid conflict ok 649 - Invalid conflict error ident should be "plan" ok 650 - The invalid conflict error should be correct ok 651 - 'Plan shoud work plan with dupe change across tags' isa 'App::Sqitch::Plan' ok 652 - Project name should be set ok 653 - Lines with dupe change should be read from file ok 654 - Noes with dupe change should be read from file ok 655 - Should have sorted changes three times ok 656 - Should find "whatever" in plan ok 657 - Should get an error trying to find dupe key. ok 658 - Dupe key error ident should be "plan" ok 659 - Dupe key error message should be correct ok 660 - Should get 3 for whatever@HEAD ok 661 - Should get 0 for whatever@bar ok 662 - Should get an error seeking dupe key. ok 663 - Dupe key error ident should be "plan" ok 664 - Dupe key error message should be correct ok 665 - Should find whatever@HEAD at index 3 ok 666 - Should find whatever@HEAD at index 0 ok 667 - Should find first instance of whatever at index 0 ok 668 - Should find first instance of whatever after @bar at index 5 ok 669 - Seek whatever@HEAD ok 670 - Position should be 3 ok 671 - Seek whatever@bar ok 672 - Position should be 0 ok 673 - Last tagged change should be "hi" ok 674 - App::Sqitch::Plan->can('open_script') ok 675 - Open bar.sql ok 676 - It should be the right file ok 677 - Open baz.sql ok 678 - It should be empty ok 679 - open_script() should die on nonexistent file ok 680 - Nonexistent file error ident should be "io" ok 681 - Nonexistent file error message should be correct ok 682 - App::Sqitch::Plan->can('check_changes') ok 683 - Should get original order when no dependencies ok 684 - Should get original order when no prepreqs ok 685 - Should get original order when that requires this ok 686 - Should get original order when other requires that ok 687 - Should get error for out-of-order dependency ok 688 - Unordered dependency error ident should be "parse" ok 689 - And the unordered dependency error message should be correct ok 690 - Should get error for multiple dependency errors ok 691 - Multiple dependency error ident should be "parse" ok 692 - And the multiple dependency error message should be correct ok 693 - Should get original order when requiring a tag ok 694 - Should get original order when requiring a step as-of a tag ok 695 - Should get failure for a step after a tag ok 696 - Step after tag error ident should be "parse" ok 697 - And we the unknown change as-of a tag message should be correct ok 698 - Should get failure for a cycle ok 699 - Cycle error ident should be "parse" ok 700 - The cycle error message should be correct ok 701 - Should get failure for a two-hop cycle ok 702 - Two-hope cycle error ident should be "parse" ok 703 - The two-hop cycle error message should be correct ok 704 - Should get original order with earlier dependency ok 705 - Should get error with misordered and seen dependencies ok 706 - Misorderd and seen error ident should be "parse" ok 707 - And the misordered and seen error message should be correct ok 708 - Should die on unknown dependency ok 709 - Unknown dependency error ident should be "parse" ok 710 - And the error should point to the offending change ok 711 - Should die on unknown tag dependency ok 712 - Unknown tag dependency error ident should be "parse" ok 713 - And the error should point to the offending change ok 714 - Should get original order with external dependency ok 715 - Should die on self dependency ok 716 - Self dependency error ident should be "parse" ok 717 - And the self dependency error should be correct ok 718 - Should get original order with cascading dependencies ok 719 - Should get original order with multiple cascading dependencies ok 720 - App::Sqitch::Plan->can('_check_dependencies') ok 721 - Depend "hi" should be in project "dupe_change_diff_tag" ok 722 - Dependency on "hi" should succeed ok 723 - Depend "greets" should be in project "dupe_change_diff_tag" ok 724 - Dependency on "greets" should succeed ok 725 - Depend "whatever" should be in project "dupe_change_diff_tag" ok 726 - Dependency on "whatever" should succeed ok 727 - Depend "@foo" should be in project "dupe_change_diff_tag" ok 728 - Dependency on "@foo" should succeed ok 729 - Depend "whatever@foo" should be in project "dupe_change_diff_tag" ok 730 - Dependency on "whatever@foo" should succeed ok 731 - Depend "ext:larry" should be in project "ext" ok 732 - Dependency on "ext:larry" should succeed ok 733 - Depend "ext:greets" should be in project "ext" ok 734 - Dependency on "ext:greets" should succeed ok 735 - Should get error trying to depend on "wanker" ok 736 - Dependency "req" error ident should be "plan" ok 737 - And should get unknown dependency message for "wanker" ok 738 - Should get error trying to depend on "@blah" ok 739 - Dependency "req" error ident should be "plan" ok 740 - And should get unknown dependency message for "@blah" ok 741 - Should get error trying to depend on "greets@foo" ok 742 - Dependency "req" error ident should be "plan" ok 743 - And should get unknown dependency message for "greets@foo" ok 744 - Should have undef URI when no pragma ok 745 - 'Plan with sqitch with plan file with dependencies' isa 'App::Sqitch::Plan' ok 746 - syntax_version should be set ok 747 - Project should be set ok 748 - Should have URI from pragma ok 749 - 'It' isa 'URI' ok 750 - Should die on plan with no project pragma ok 751 - Missing prorject error ident should be "parse" ok 752 - The missing project error message should be correct ok 753 - Should die on invalid project name "^foo" ok 754 - Ident for bad proj "^foo" should be "parse" ok 755 - Error message for bad project "^foo" should be correct ok 756 - Should die on invalid project name "foo^" ok 757 - Ident for bad proj "foo^" should be "parse" ok 758 - Error message for bad project "foo^" should be correct ok 759 - Should die on invalid project name "foo^6" ok 760 - Ident for bad proj "foo^6" should be "parse" ok 761 - Error message for bad project "foo^6" should be correct ok 762 - Should die on invalid project name "foo^666" ok 763 - Ident for bad proj "foo^666" should be "parse" ok 764 - Error message for bad project "foo^666" should be correct ok 765 - Should die on invalid project name "%hi" ok 766 - Ident for bad proj "%hi" should be "parse" ok 767 - Error message for bad project "%hi" should be correct ok 768 - Should die on invalid project name "hi!" ok 769 - Ident for bad proj "hi!" should be "parse" ok 770 - Error message for bad project "hi!" should be correct ok 771 - Should die on invalid project name "foo@bar" ok 772 - Ident for bad proj "foo@bar" should be "parse" ok 773 - Error message for bad project "foo@bar" should be correct ok 774 - Should die on invalid project name "foo:bar" ok 775 - Ident for bad proj "foo:bar" should be "parse" ok 776 - Error message for bad project "foo:bar" should be correct ok 777 - Should die on invalid project name "+foo" ok 778 - Ident for bad proj "+foo" should be "parse" ok 779 - Error message for bad project "+foo" should be correct ok 780 - Should die on invalid project name "-foo" ok 781 - Ident for bad proj "-foo" should be "parse" ok 782 - Error message for bad project "-foo" should be correct ok 783 - Should die on invalid project name "@foo" ok 784 - Ident for bad proj "@foo" should be "parse" ok 785 - Error message for bad project "@foo" should be correct 1..785 ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 22 warning(s) # Previous test 1 'require App::Sqitch::Command::plan;' # Useless use of array element in void context at (eval 201) line 77. # at (eval 201) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101053c68)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101838110)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100456368)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x10180b228), "_engine", "sqlite", "plan_file", Path::Class::File=HASH(0x1018b5d30)) called at t/plan_command.t line 26 # # ---------- # Previous test 1 'require App::Sqitch::Command::plan;' # Useless use of array element in void context at (eval 201) line 438. # at (eval 201) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101053c68)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101838110)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100456368)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x10180b228), "_engine", "sqlite", "plan_file", Path::Class::File=HASH(0x1018b5d30)) called at t/plan_command.t line 26 # # ---------- # Previous test 1 'require App::Sqitch::Command::plan;' # Useless use of array element in void context at (eval 201) line 515. # at (eval 201) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101053c68)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101838110)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100456368)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x10180b228), "_engine", "sqlite", "plan_file", Path::Class::File=HASH(0x1018b5d30)) called at t/plan_command.t line 26 # # ---------- # Previous test 2 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 208) line 190. # at (eval 208) line 190. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::ItemFormatter::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::ItemFormatter") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::ItemFormatter::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"abbrev"} # ? $args->{"abbrev"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "abbrev", # name => "abbrev", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"abbrev\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"abbrev"} = $value; # } # { # my $value = ( # exists $args->{"color"} # ? $args->{"color"} # : "auto" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "color", # name => "color", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:always|auto|never)\\z}) ? $_[0] : Type::Tiny::_failed_check(64, "Enum[always,auto,never]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"color\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"color"} = $value; # } # { # my $value = ( # exists $args->{"date_format"} # ? $args->{"date_format"} # : "iso" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "date_format", # name => "date_format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"date_format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"date_format"} = $value; # } # if (exists $args->{"formatter"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "formatter", # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"formatter"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(65, "StringFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"formatter"} = $args->{"formatter"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::ItemFormatter::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1018dfbc0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019bcb70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10183ffa8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::ItemFormatter::new("App::Sqitch::ItemFormatter", "date_format", "iso") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/plan.pm line 167 # App::Sqitch::Command::plan::configure("App::Sqitch::Command::plan", App::Sqitch::Config=HASH(0x1012ccd70), HASH(0x1018df098)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 91 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016adb50)) called at t/plan_command.t line 32 # # ---------- # Previous test 2 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 209) line 183. # at (eval 209) line 183. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change_pattern", # name => "change_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change_pattern"} = $args->{"change_pattern"}; # } # if (exists $args->{"event"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "event", # name => "event", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"event"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"event\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"event"} = $args->{"event"}; # } # { # my $value = ( # exists $args->{"format"} # ? $args->{"format"} # : "%{:event}C%L %h%{reset}C\\n%{name}_ %n\\n%{planner}_ %p\\n%{date}_ %{date}p\\n\\n%{ }B\\n" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "format", # name => "format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"format"} = $value; # } # if (exists $args->{"formatter"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "formatter", # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"formatter"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC18($_[0])) ? $_[0] : Type::Tiny::_failed_check(66, "AppSqitchItemFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"formatter"} = $args->{"formatter"}; # } # if (exists $args->{"max_count"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_count", # name => "max_count", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_count"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_count\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_count"} = $args->{"max_count"}; # } # if (exists $args->{"planner_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_pattern", # name => "planner_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"planner_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_pattern"} = $args->{"planner_pattern"}; # } # { # my $value = ( # exists $args->{"reverse"} # ? $args->{"reverse"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "reverse", # name => "reverse", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"reverse\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"reverse"} = $value; # } # if (exists $args->{"skip"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "skip", # name => "skip", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"skip"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"skip\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"skip"} = $args->{"skip"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019caf90)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019dc910)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101857e60)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::plan::new("App::Sqitch::Command::plan", HASH(0x10063baa8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016adb50)) called at t/plan_command.t line 32 # # ---------- # Previous test 2 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 209) line 368. # at (eval 209) line 368. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change_pattern", # name => "change_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change_pattern"} = $args->{"change_pattern"}; # } # if (exists $args->{"event"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "event", # name => "event", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"event"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"event\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"event"} = $args->{"event"}; # } # { # my $value = ( # exists $args->{"format"} # ? $args->{"format"} # : "%{:event}C%L %h%{reset}C\\n%{name}_ %n\\n%{planner}_ %p\\n%{date}_ %{date}p\\n\\n%{ }B\\n" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "format", # name => "format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"format"} = $value; # } # if (exists $args->{"formatter"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "formatter", # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"formatter"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC18($_[0])) ? $_[0] : Type::Tiny::_failed_check(66, "AppSqitchItemFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"formatter"} = $args->{"formatter"}; # } # if (exists $args->{"max_count"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_count", # name => "max_count", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_count"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_count\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_count"} = $args->{"max_count"}; # } # if (exists $args->{"planner_pattern"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_pattern", # name => "planner_pattern", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"planner_pattern"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_pattern\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_pattern"} = $args->{"planner_pattern"}; # } # { # my $value = ( # exists $args->{"reverse"} # ? $args->{"reverse"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "reverse", # name => "reverse", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"reverse\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"reverse"} = $value; # } # if (exists $args->{"skip"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "skip", # name => "skip", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"skip"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"skip\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"skip"} = $args->{"skip"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019caf90)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019dc910)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101857e60)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::plan::new("App::Sqitch::Command::plan", HASH(0x10063baa8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016adb50)) called at t/plan_command.t line 32 # # ---------- # Previous test 34 'Instantiate with format "raw"' # Useless use of array element in void context at (eval 246) line 43. # at (eval 246) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_formatter = ${$_[1]->{"\\$default_for_formatter"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::plan::formatter { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "formatter is a read-only accessor" if @_ > 1; # exists $_[0]->{"formatter"} ? # $_[0]->{"formatter"} # : do { # my $value = $default_for_formatter->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC18($_[0])) ? $_[0] : Type::Tiny::_failed_check(66, "AppSqitchItemFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"formatter"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Command::plan::formatter # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019e8e20)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101838020)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101838020)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::plan::formatter(App::Sqitch::Command::plan=HASH(0x101f986a0)) called at t/plan_command.t line 259 # # ---------- # Previous test 34 'Instantiate with format "raw"' # Useless use of array element in void context at (eval 247) line 43. # at (eval 247) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_formatter = ${$_[1]->{"\\$default_for_formatter"}}; # no warnings \'closure\'; # sub App::Sqitch::ItemFormatter::formatter { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "formatter is a read-only accessor" if @_ > 1; # exists $_[0]->{"formatter"} ? # $_[0]->{"formatter"} # : do { # my $value = $default_for_formatter->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "formatter", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(65, "StringFormatter", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"formatter\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"formatter"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::ItemFormatter::formatter # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101f95a50)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018b5ca0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1018b5ca0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::ItemFormatter::formatter(App::Sqitch::ItemFormatter=HASH(0x101f986d0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/ItemFormatter.pm line 224 # App::Sqitch::ItemFormatter::format(App::Sqitch::ItemFormatter=HASH(0x101f986d0), "%{:event}C%e %H%{reset}C%T\x{a}name %n\x{a}project %o\x{a}%{requir"..., HASH(0x101eae430)) called at t/plan_command.t line 259 # # ---------- # Previous test 199 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 395) line 43. # at (eval 395) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan() called at (eval 393) line 17 # App::Sqitch::Command::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/plan.pm line 178 # App::Sqitch::Command::plan::execute() called at t/plan_command.t line 546 # Test::Exception::throws_ok() called at t/plan_command.t line 546 # # ---------- # Previous test 199 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 396) line 71. # at (eval 396) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 395) line 22 # App::Sqitch::plan() called at (eval 393) line 17 # App::Sqitch::Command::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/plan.pm line 178 # App::Sqitch::Command::plan::execute() called at t/plan_command.t line 546 # Test::Exception::throws_ok() called at t/plan_command.t line 546 # # ---------- # Previous test 199 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 396) line 107. # at (eval 396) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 395) line 22 # App::Sqitch::plan() called at (eval 393) line 17 # App::Sqitch::Command::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/plan.pm line 178 # App::Sqitch::Command::plan::execute() called at t/plan_command.t line 546 # Test::Exception::throws_ok() called at t/plan_command.t line 546 # # ---------- # Previous test 199 'Invalid color error message should be correct' # Useless use of array element in void context at (eval 396) line 256. # at (eval 396) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 395) line 22 # App::Sqitch::plan() called at (eval 393) line 17 # App::Sqitch::Command::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/plan.pm line 178 # App::Sqitch::Command::plan::execute() called at t/plan_command.t line 546 # Test::Exception::throws_ok() called at t/plan_command.t line 546 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 401) line 43. # at (eval 401) line 43. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x10205eee0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014aa7f8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014aa7f8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 404) line 298, line 1. # at (eval 404) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1020281f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101fd2ec8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101580b58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x10209e160), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of hash element in void context at (eval 404) line 311, line 1. # at (eval 404) line 311, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1020281f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101fd2ec8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101580b58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x10209e160), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 405) line 262, line 2. # at (eval 405) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1021cbba8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101fd2d00)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101518d88)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x10209e160), "lspace", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 407) line 597, line 3. # at (eval 407) line 597, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1021d4178)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1021d7e00)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015449f8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x10209e160), "name", "roles", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x1021d8760), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 407) line 633, line 3. # at (eval 407) line 633, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1021d4178)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1021d7e00)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015449f8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x10209e160), "name", "roles", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x1021d8760), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 407) line 906, line 3. # at (eval 407) line 906, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1021d4178)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1021d7e00)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015449f8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x10209e160), "name", "roles", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x1021d8760), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 408) line 61, line 5. # at (eval 408) line 61, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101ff24a8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101926480)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d4980)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x10209e160), "change", App::Sqitch::Plan::Change=HASH(0x101941678), "name", "alpha", "rspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 408) line 441, line 5. # at (eval 408) line 441, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101ff24a8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101926480)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d4980)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x10209e160), "change", App::Sqitch::Plan::Change=HASH(0x101941678), "name", "alpha", "rspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # ---------- # Previous test 203 'no changes error message should be correct' # Useless use of array element in void context at (eval 408) line 637, line 5. # at (eval 408) line 637, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101ff24a8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101926480)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d4980)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x10209e160), "change", App::Sqitch::Plan::Change=HASH(0x101941678), "name", "alpha", "rspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x10209e160), Path::Class::File=HASH(0x1018b5d30), IO::File=GLOB(0x102027c38)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 402) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x10209e160)) called at (eval 401) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x10209e160)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 588 # App::Sqitch::Plan::change_at(App::Sqitch::Plan=HASH(0x10209e160), 0) called at t/plan_command.t line 566 # # Looks like you failed 1 test of 215. t/plan_command.t .... 1..215 ok 1 - require App::Sqitch::Command::plan; ok 2 - Load a sqitch sqitch object ok 3 - 'plan command' isa 'App::Sqitch::Command::plan' ok 4 - App::Sqitch::Command::plan->can(...) ok 5 - Options should be correct ok 6 - 'Formatter' isa 'App::Sqitch::ItemFormatter' ok 7 - Should get empty hash for no config or options ok 8 - Should get error for invalid date format in config ok 9 - Invalid date format error ident should be "datetime" ok 10 - Invalid date format error message should be correct ok 11 - Should get error for invalid date format in optsions ok 12 - Invalid date format error ident should be "plan" ok 13 - Invalid date format error message should be correct ok 14 - Should get error for invalid format in config ok 15 - Invalid format error ident should be "plan" ok 16 - Invalid format error message should be correct ok 17 - Should get error for invalid format in optsions ok 18 - Invalid format error ident should be "plan" ok 19 - Invalid format error message should be correct ok 20 - Configuration should respect --no-color, setting "never" ok 21 - --oneline should set format ok 22 - --oneline should set abbrev to 6 ok 23 - --oneline should not override --format ok 24 - --oneline should not overrride --abbrev ok 25 - Configuration should respect --no-color even when configure is set ok 26 - Configuration should respect color option ok 27 - Configuration should respect color config ok 28 - Configuration should respect color option ok 29 - Configuration should respect color config ok 30 - Configuration should respect color option ok 31 - Configuration should respect color config ok 32 - Configuration should respect color option ok 33 - Configuration should respect color config ok 34 - Instantiate with format "raw" ok 35 - Format "raw" should output correctly ok 36 - Format "raw" should output correctly without tags ok 37 - Instantiate with format "full" ok 38 - Format "full" should output correctly ok 39 - Instantiate with format "full" and date format "rfc" ok 40 - Format "full" and date format "rfc" should output correctly ok 41 - Instantiate with format "full" and date format "long" ok 42 - Format "full" and date format "long" should output correctly ok 43 - Instantiate with format "full" and date format "medium" ok 44 - Format "full" and date format "medium" should output correctly ok 45 - Format "full" should output correctly without tags ok 46 - Instantiate with format "long" ok 47 - Format "long" should output correctly ok 48 - Format "long" should output correctly without tags ok 49 - Instantiate with format "medium" ok 50 - Format "medium" should output correctly ok 51 - Instantiate with format "medium" and date format "rfc" ok 52 - Format "medium" and date format "rfc" should output correctly ok 53 - Instantiate with format "medium" and date format "long" ok 54 - Format "medium" and date format "long" should output correctly ok 55 - Instantiate with format "medium" and date format "medium" ok 56 - Format "medium" and date format "medium" should output correctly ok 57 - Instantiate with format "short" ok 58 - Format "short" should output correctly ok 59 - Instantiate with format "oneline" ok 60 - Format "oneline" should output correctly ok 61 - Format "oneline" should output correctly without tags ok 62 - Format "%e" should output "deploy" ok 63 - Format "%e" should output "revert" ok 64 - Format "%e" should output "fail" ok 65 - Format "%L" should output "Deploy" ok 66 - Format "%L" should output "Revert" ok 67 - Format "%L" should output "Fail" ok 68 - Format "%l" should output "deploy" ok 69 - Format "%l" should output "revert" ok 70 - Format "%l" should output "fail" ok 71 - Format "%{event}_" should output "Event: " ok 72 - Format "%{change}_" should output "Change: " ok 73 - Format "%{planner}_" should output "Planner: " ok 74 - Format "%{by}_" should output "By: " ok 75 - Format "%{date}_" should output "Date: " ok 76 - Format "%{planned}_" should output "Planned: " ok 77 - Format "%{name}_" should output "Name: " ok 78 - Format "%{email}_" should output "Email: " ok 79 - Format "%{requires}_" should output "Requires: " ok 80 - Format "%{conflicts}_" should output "Conflicts:" ok 81 - Format "%H" should output "123456789" ok 82 - Format "%h" should output "123456789" ok 83 - Format "%{5}h" should output "12345" ok 84 - Format "%{7}h" should output "1234567" ok 85 - Format "%n" should output "foo" ok 86 - Format "%n" should output "bar" ok 87 - Format "%o" should output "foo" ok 88 - Format "%o" should output "bar" ok 89 - Format "%p" should output "larry " ok 90 - Format "%{n}p" should output "damian" ok 91 - Format "%{name}p" should output "chip" ok 92 - Format "%{e}p" should output "larry@example.com" ok 93 - Format "%{email}p" should output "damian@example.com" ok 94 - Format "%{date}p" should output "2014-09-05 07:17:05 -0700" ok 95 - Format "%{date:rfc}p" should output "Fri, 05 Sep 2014 07:17:05 -0700" ok 96 - Format "%{d:long}p" should output "September 5, 2014 7:17:05 AM PDT" ok 97 - Format "%{d:cldr:HH'h' mm'm'}p" should output "07h 17m" ok 98 - Format "%{d:strftime:%a at %H:%M:%S}p" should output "Fri at 07:17:05" ok 99 - Format "%t" should output "" ok 100 - Format "%t" should output " @foo" ok 101 - Format "%t" should output " @foo, @bar" ok 102 - Format "%{|}t" should output "" ok 103 - Format "%{|}t" should output " @foo" ok 104 - Format "%{|}t" should output " @foo|@bar" ok 105 - Format "%T" should output "" ok 106 - Format "%T" should output " (@foo)" ok 107 - Format "%T" should output " (@foo, @bar)" ok 108 - Format "%{|}T" should output "" ok 109 - Format "%{|}T" should output " (@foo)" ok 110 - Format "%{|}T" should output " (@foo|@bar)" ok 111 - Format "%r" should output "" ok 112 - Format "%r" should output " foo" ok 113 - Format "%r" should output " foo, bar" ok 114 - Format "%{|}r" should output "" ok 115 - Format "%{|}r" should output " foo" ok 116 - Format "%{|}r" should output " foo|bar" ok 117 - Format "%R" should output "" ok 118 - Format "%R" should output "Requires: foo[newline]" ok 119 - Format "%R" should output "Requires: foo, bar[newline]" ok 120 - Format "%{|}R" should output "" ok 121 - Format "%{|}R" should output "Requires: foo[newline]" ok 122 - Format "%{|}R" should output "Requires: foo|bar[newline]" ok 123 - Format "%x" should output "" ok 124 - Format "%x" should output " foo" ok 125 - Format "%x" should output " foo, bax" ok 126 - Format "%{|}x" should output "" ok 127 - Format "%{|}x" should output " foo" ok 128 - Format "%{|}x" should output " foo|bax" ok 129 - Format "%X" should output "" ok 130 - Format "%X" should output "Conflicts: foo[newline]" ok 131 - Format "%X" should output "Conflicts: foo, bar[newline]" ok 132 - Format "%{|}X" should output "" ok 133 - Format "%{|}X" should output "Conflicts: foo[newline]" ok 134 - Format "%{|}X" should output "Conflicts: foo|bar[newline]" ok 135 - Format "%{yellow}C" should output "" ok 136 - Format "%{:event}C" should output "" ok 137 - Format "%v" should output "[newline]" ok 138 - Format "%%" should output "%" ok 139 - Format "%s" should output "hi there" ok 140 - Format "%s" should output "hi there" ok 141 - Format "%s" should output "subject line" ok 142 - Format "%{ }s" should output " hi there" ok 143 - Format "%{xx}s" should output "xxhi there" ok 144 - Format "%b" should output "" ok 145 - Format "%b" should output "yo" ok 146 - Format "%b" should output "first graph[newline][newline]second graph[newline][newline]" ok 147 - Format "%{ }b" should output "" ok 148 - Format "%{xxx }b" should output "xxx yo" ok 149 - Format "%{x}b" should output "xfirst graph[newline]x[newline]xsecond graph[newline]x[newline]" ok 150 - Format "%{ }b" should output " yo" ok 151 - Format "%B" should output "hi there" ok 152 - Format "%B" should output "hi there[newline]yo" ok 153 - Format "%B" should output "subject line[newline][newline]first graph[newline][newline]second graph[newline][newline]" ok 154 - Format "%{ }B" should output " hi there" ok 155 - Format "%{xxx }B" should output "xxx hi there[newline]xxx yo" ok 156 - Format "%{x}B" should output "xsubject line[newline]x[newline]xfirst graph[newline]x[newline]xsecond graph[newline]x[newline]" ok 157 - Format "%{ }B" should output " hi there [newline] yo" ok 158 - Format "%{change}a" should output "change lolz[newline]" ok 159 - Format "%{change_id}a" should output "change_id 000011112222333444[newline]" ok 160 - Format "%{event}a" should output "event deploy[newline]" ok 161 - Format "%{tags}a" should output "tags @beta, @gamma[newline]" ok 162 - Format "%{requires}a" should output "requires foo, bar[newline]" ok 163 - Format "%{conflicts}a" should output "" ok 164 - Should get exception for format "%_" ok 165 - %_ error ident should be "format" ok 166 - %_ error message should be correct ok 167 - Should get exception for unknown label in format "%_" ok 168 - Invalid %_ label error ident should be "format" ok 169 - Invalid %_ label error message should be correct ok 170 - Instantiate with abbrev => 4 ok 171 - %h should respect abbrev ok 172 - %H should not respect abbrev ok 173 - Instantiate with date_format => "rfc" ok 174 - %{date}p should respect the date_format attribute ok 175 - %{iso}p should override the date_format attribute ok 176 - Should get exception for unknown attribute passed to %a ok 177 - %a error ident should be "format" ok 178 - %a error message should be correct ok 179 - Format "%{yellow}C" should output yellow ok 180 - Format "%{red}C" should output red ok 181 - Format "%{blue}C" should output blue ok 182 - Format "%{cyan}C" should output cyan ok 183 - Format "%{magenta}C" should output magenta ok 184 - Format "%{:event}C" on "deploy" should output green ok 185 - Format "%{:event}C" on "revert" should output blue ok 186 - Format "%{:event}C" on "fail" should output red ok 187 - Instantiate with format "full" again ok 188 - Format "full" should output correctly with color ok 189 - Instantiate with format "long" again ok 190 - Format "long" should output correctly with color ok 191 - Instantiate with format "medium" again ok 192 - Format "medium" should output correctly with color ok 193 - Instantiate with format "short" again ok 194 - Format "short" should output correctly with color ok 195 - Instantiate with format "oneline" again ok 196 - Format "oneline" should output correctly with color ok 197 - Should get an error for an invalid color ok 198 - Invalid color error ident should be "format" ok 199 - Invalid color error message should be correct ok 200 - Should get error for no changes ok 201 - no changes error ident should be "plan" ok 202 - no changes exit val should be 1 ok 203 - no changes error message should be correct ok 204 - Execute plan ok 205 - The proper args should have been passed to search_events ok 206 - The event should have been paged ok 207 - 'plan with attributes' isa 'App::Sqitch::Command::plan' ok 208 - Execute plan with attributes ok 209 - All params should have been passed to search_events ok 210 - Both events should have been paged ok 211 - 'plan with bad format' isa 'App::Sqitch::Command::plan' ok 212 - Should get an exception for a bad format code ok 213 - bad format code format error ident should be "format" ok 214 - bad format code format error message should be correct not ok 215 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/215 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 26 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x100bc53b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x100bc52d8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x100bc5218)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100e95768), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x100f57a88)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x101183570)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013b50f0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Plan", "class", "App::Sqitch::Plan") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x10117fc68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013be8e8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Change", "class", "App::Sqitch::Plan::Change") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x1011c3440)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013c7580)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "ChangeList", "class", "App::Sqitch::Plan::ChangeList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x1011c33e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013d0bd8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "LineList", "class", "App::Sqitch::Plan::LineList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x101183af8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013d7080)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Tag", "class", "App::Sqitch::Plan::Tag") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x1011cae90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013e23e8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Depend", "class", "App::Sqitch::Plan::Depend") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x1011c32d8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013e87e0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DateTime", "class", "App::Sqitch::DateTime") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x1013be300)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013eee58)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x1011cb898)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x1013ff3a8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Config", "class", "App::Sqitch::Config") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x101183a80)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x101403888)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "File", "class", "Path::Class::File") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x1013ce2c8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x10140aa40)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Dir", "class", "Path::Class::Dir") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x1013e2148)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny::Class=HASH(0x101413698)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x1013e8540)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny=HASH(0x10141cb10)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x100e95768), "constraint", CODE(0x10138f440)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny=HASH(0x1014235b0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x100e95768), "constraint", CODE(0x10138f638)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny=HASH(0x10142c118)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x10138f800)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c3338), Type::Tiny=HASH(0x10142feb0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x100bfaf78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at /export/home/fly1464/var/megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x10153f5c8), ARRAY(0x10150fd88)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/pragma.t line 10 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # # ---------- # Previous test 2 'App::Sqitch::Plan::Pragma->can(...)' # Useless use of array element in void context at (eval 195) line 77. # at (eval 195) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101095c20)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b30d0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10043fbe8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/pragma.t line 36 # # ---------- # Previous test 2 'App::Sqitch::Plan::Pragma->can(...)' # Useless use of array element in void context at (eval 195) line 438. # at (eval 195) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101095c20)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b30d0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10043fbe8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/pragma.t line 36 # # ---------- # Previous test 2 'App::Sqitch::Plan::Pragma->can(...)' # Useless use of array element in void context at (eval 195) line 515. # at (eval 195) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101095c20)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1002b30d0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10043fbe8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/pragma.t line 36 # # ---------- # Previous test 2 'App::Sqitch::Plan::Pragma->can(...)' # Useless use of array element in void context at (eval 196) line 71. # at (eval 196) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017701c0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10175c598)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153bdc0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at t/pragma.t line 37 # # ---------- # Previous test 2 'App::Sqitch::Plan::Pragma->can(...)' # Useless use of array element in void context at (eval 196) line 107. # at (eval 196) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017701c0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10175c598)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153bdc0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at t/pragma.t line 37 # # ---------- # Previous test 2 'App::Sqitch::Plan::Pragma->can(...)' # Useless use of array element in void context at (eval 196) line 256. # at (eval 196) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017701c0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10175c598)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153bdc0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002b2f68)) called at t/pragma.t line 37 # # ---------- # Previous test 2 'App::Sqitch::Plan::Pragma->can(...)' # Useless use of array element in void context at (eval 197) line 298. # at (eval 197) line 298. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101806c30)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101824a00)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101628b40)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x1017f8d28)) called at t/pragma.t line 38 # # Looks like you failed 1 test of 10. t/pragma.t .......... 1..10 ok 1 - require App::Sqitch::Plan::Pragma; ok 2 - App::Sqitch::Plan::Pragma->can(...) ok 3 - An object of class 'App::Sqitch::Plan::Pragma' isa 'App::Sqitch::Plan::Pragma' ok 4 - An object of class 'App::Sqitch::Plan::Pragma' isa 'App::Sqitch::Plan::Line' ok 5 - Name should format as "%foo" ok 6 - Value should format as "" ok 7 - should stringify to "%foo" ok 8 - Create pragma with more stuff ok 9 - It should stringify correctly not ok 10 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/10 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Subroutine options redefined at (eval 201) line 2. Subroutine configure redefined at (eval 205) line 2. Useless use of array element in void context at (eval 206) line 77. Useless use of array element in void context at (eval 206) line 438. Useless use of array element in void context at (eval 206) line 515. Useless use of array element in void context at (eval 212) line 332. Useless use of array element in void context at (eval 225) line 43. Useless use of array element in void context at (eval 226) line 71. Useless use of array element in void context at (eval 226) line 107. Useless use of array element in void context at (eval 226) line 256. Useless use of array element in void context at (eval 227) line 43. Useless use of array element in void context at (eval 231) line 298, line 1. Useless use of array element in void context at (eval 232) line 262, line 2. Useless use of array element in void context at (eval 243) line 597, line 3. Useless use of array element in void context at (eval 243) line 633, line 3. Useless use of array element in void context at (eval 243) line 906, line 3. Useless use of hash element in void context at (eval 243) line 646, line 3. Useless use of array element in void context at (eval 244) line 61, line 5. Useless use of array element in void context at (eval 244) line 441, line 5. Useless use of array element in void context at (eval 244) line 637, line 5. Useless use of array element in void context at (eval 262) line 379. Useless use of array element in void context at (eval 262) line 456. Useless use of array element in void context at (eval 262) line 528. t/rebase.t .......... ok 1 - require App::Sqitch::Command::rebase; ok 2 - The class (or class-like) 'App::Sqitch::Command::rebase' isa 'App::Sqitch::Command' ok 3 - App::Sqitch::Command::rebase->can(...) ok 4 - Options should be correct ok 5 - Should have empty default configuration with no config or opts ok 6 - Should have set option ok 7 - Should have mode, deploy_variables, verify, no_prompt, and log_only ok 8 - Should have set_revert option and no_prompt false ok 9 - set_deploy and set_revert should overrid set ok 10 - set_deploy and set_revert should merge with set ok 11 - set_revert should merge with set_deploy ok 12 - Should have deploy configuration ok 13 - Should have merged variables ok 14 - Should get warning for deprecated --onto-target ok 15 - Should have merged --set, deploy, rebase ok 16 - An object of class 'App::Sqitch::Command::rebase' isa 'App::Sqitch::Command::rebase' ok 17 - Should pick up deploy variables from configuration ok 18 - Should pick up revert variables from configuration ok 19 - Should have no_prompt true ok 20 - Should have false no_prompt, verify, and true prompt_accept from rebase config ok 21 - Should have true no_prompt, verify, and false prompt_accept from rebase from deploy ok 22 - Should have no_prompt, prompt_accept false and mode all again ok 23 - Should have no_prompt false and prompt_accept true for revert config ok 24 - Should have no_prompt true with -y ok 25 - 'new status with target' isa 'App::Sqitch::Command::rebase' ok 26 - Should have target "foo" ok 27 - An object of class 'App::Sqitch::Command::rebase' isa 'App::Sqitch::Command::rebase' ok 28 - Should have undef target ok 29 - onto_change should be undef ok 30 - upto_change should be undef ok 31 - Execute to "@alpha" ok 32 - undef, and "all" should be passed to the engine deploy ok 33 - "@alpha" should be passed to the engine revert ok 34 - Engine should prompt ok 35 - Engine should no be log only ok 36 - Should have no warnings ok 37 - Execute with target ok 38 - undef, and "all" should be passed to the engine deploy ok 39 - undef should be passed to the engine revert ok 40 - Engine should prompt ok 41 - Engine should no be log only ok 42 - The engine should know the target ok 43 - Should have no warnings ok 44 - Execute with onto and target ok 45 - undef, and "all" should be passed to the engine deploy ok 46 - "widgets" should be passed to the engine revert ok 47 - Engine should prompt ok 48 - Engine should no be log only ok 49 - The engine should know the target ok 50 - Should have no warnings ok 51 - Execute with three args ok 52 - "widgets", and "all" should be passed to the engine deploy ok 53 - "roles" should be passed to the engine revert ok 54 - Engine should prompt ok 55 - Engine should no be log only ok 56 - The engine should know the target ok 57 - Should have no warnings ok 58 - Execute ok 59 - undef and "all" should be passed to the engine deploy ok 60 - undef and = should be passed to the engine revert ok 61 - No vars should have been passed through to the engine ok 62 - Should have no warnings ok 63 - 'Object with to and variables' isa 'App::Sqitch::Command::rebase' ok 64 - Execute again ok 65 - ENgine should have target option ok 66 - Engine should be no_prompt ok 67 - Engine should be log_only ok 68 - Engine should verify ok 69 - "bar", "tag", and 1 should be passed to the engine deploy ok 70 - "foo" and 1 should be passed to the engine revert ok 71 - Variables should have been passed to the engine twice ok 72 - The revert vars should have been passed first ok 73 - The deploy vars should have been next ok 74 - Should have no warnings ok 75 - Execute with three args ok 76 - ENgine should have target option ok 77 - Engine should be no_prompt ok 78 - Engine should be log_only ok 79 - Engine should verify ok 80 - "bar", "tag", and 1 should be passed to the engine deploy ok 81 - "foo" and 1 should be passed to the engine revert ok 82 - Variables should have been passed to the engine twice ok 83 - The revert vars should have been passed first ok 84 - The deploy vars should have been next ok 85 - Should have two warnings ok 86 - Should get an exception for unknown arg ok 87 - Unknow arg ident should be "rebase" ok 88 - Should get an exeption for two unknown arg ok 89 - Should get an exception for unknown args ok 90 - Unknow args ident should be "rebase" ok 91 - Should get an exeption for two unknown args ok 92 - Execute once more ok 93 - "bar", "tag", and 1 should be passed to the engine deploy ok 94 - Variables should have been passed to the engine twice ok 95 - The revert vars should have been passed first ok 96 - The deploy vars should have been next ok 97 - Should have emitted info for non-fatal revert exception ok 98 - Should rethrow confirm exception ok 99 - Should rethrow fatal exception ok 100 - Should rethrow unknown exception 1..100 ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Useless use of array element in void context at (eval 196) line 77. Useless use of array element in void context at (eval 196) line 438. Useless use of array element in void context at (eval 196) line 515. Useless use of array element in void context at (eval 202) line 183. Useless use of array element in void context at (eval 214) line 43. Useless use of array element in void context at (eval 215) line 71. Useless use of array element in void context at (eval 215) line 107. Useless use of array element in void context at (eval 215) line 256. Useless use of array element in void context at (eval 216) line 43. Useless use of array element in void context at (eval 220) line 298, line 1. Useless use of array element in void context at (eval 221) line 262, line 2. Useless use of array element in void context at (eval 232) line 597, line 3. Useless use of array element in void context at (eval 232) line 633, line 3. Useless use of array element in void context at (eval 232) line 906, line 3. Useless use of hash element in void context at (eval 232) line 646, line 3. Useless use of array element in void context at (eval 233) line 61, line 5. Useless use of array element in void context at (eval 233) line 441, line 5. Useless use of array element in void context at (eval 233) line 637, line 5. Useless use of array element in void context at (eval 251) line 379. Useless use of array element in void context at (eval 251) line 456. Useless use of array element in void context at (eval 251) line 528. t/revert.t .......... ok 1 - require App::Sqitch::Command::revert; ok 2 - The class (or class-like) 'App::Sqitch::Command::revert' isa 'App::Sqitch::Command' ok 3 - App::Sqitch::Command::revert->can(...) ok 4 - Options should be correct ok 5 - Should have empty default configuration with no config or opts ok 6 - Should have set option ok 7 - Should have no_prompt false, prompt_accept true ok 8 - Should have merged variables ok 9 - Should have merged --set, deploy, revert ok 10 - An object of class 'App::Sqitch::Command::revert' isa 'App::Sqitch::Command::revert' ok 11 - Should pick up variables from configuration ok 12 - Should have no_prompt true, prompt_accept false ok 13 - Should have no_prompt false again ok 14 - Should have no_prompt false for false config ok 15 - Should have no_prompt true with -y ok 16 - 'new revert with target' isa 'App::Sqitch::Command::revert' ok 17 - Should have target "foo" ok 18 - to_change should be undef ok 19 - An object of class 'App::Sqitch::Command::revert' isa 'App::Sqitch::Command::revert' ok 20 - Should have undef default target ok 21 - to_change should be undef ok 22 - Execute to "@alpha" ok 23 - Engine should be no_prompt ok 24 - Engine should not be log_only ok 25 - "@alpha" should be passed to the engine ok 26 - Should have no warnings ok 27 - Execute ok 28 - undef should be passed to the engine ok 29 - No vars should have been passed through to the engine ok 30 - Should still have no warnings ok 31 - Execute to target ok 32 - Engine should be no_prompt ok 33 - Engine should not be log_only ok 34 - undef" should be passed to the engine ok 35 - Enging should have passed target ok 36 - Should have no warnings ok 37 - Execute with change and target ok 38 - Engine should be no_prompt ok 39 - Engine should not be log_only ok 40 - "widgets" should be passed to the engine ok 41 - Enging should have passed target ok 42 - Should have no warnings ok 43 - Execute with target and change ok 44 - Engine should be no_prompt ok 45 - Engine should not be log_only ok 46 - "widgets" should be passed to the engine ok 47 - Enging should have passed target ok 48 - Should have no warnings ok 49 - 'Object with to and variables' isa 'App::Sqitch::Command::revert' ok 50 - Execute again ok 51 - Engine should not be no_prompt ok 52 - Engine should be log_only ok 53 - "foo" and 1 should be passed to the engine ok 54 - Vars should have been passed through to the engine ok 55 - Enging should have target option ok 56 - Should have no warnings ok 57 - Execute with options and args ok 58 - Engine should not be no_prompt ok 59 - Engine should be log_only ok 60 - "foo" and 1 should be passed to the engine ok 61 - Vars should have been passed through to the engine ok 62 - Enging should have target option ok 63 - Should have two warnings ok 64 - Should get an exception for unknown arg ok 65 - Unknow arg ident should be "revert" ok 66 - Should get an exeption for two unknown arg ok 67 - Should get an exception for unknown args ok 68 - Unknow args ident should be "revert" ok 69 - Should get an exeption for two unknown args 1..69 ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 30 warning(s) # Previous test 0 '' # Useless use of array element in void context at (eval 197) line 77. # at (eval 197) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018e6e88)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8), "_engine", "pg") called at t/rework.t line 26 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 197) line 438. # at (eval 197) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018e6e88)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8), "_engine", "pg") called at t/rework.t line 26 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 197) line 515. # at (eval 197) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018e6e88)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8), "_engine", "pg") called at t/rework.t line 26 # # ---------- # Previous test 1 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 205) line 183. # at (eval 205) line 183. # eval '{ # my $default_for_requires = ${$_[1]->{"\\$default_for_requires"}}; # my $default_for_conflicts = ${$_[1]->{"\\$default_for_conflicts"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_note = ${$_[1]->{"\\$default_for_note"}}; # my $coerce_for_open_5feditor = ${$_[1]->{"\\$coerce_for_open_5feditor"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::rework::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::rework") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::rework::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for_conflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : $default_for_note->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"open_editor"}) { # $args->{"open_editor"} = do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "open_editor", # name => "open_editor", # step => "coercion", # }; # my $_return; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $_return = # $coerce_for_open_5feditor->($args->{"open_editor"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "coercion for \\"open_editor\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # $_return; # } # ; # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "open_editor", # name => "open_editor", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"open_editor"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(54, "ConfigBool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"open_editor\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"open_editor"} = $args->{"open_editor"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for_requires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"requires\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"requires"} = $value; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::rework::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_requires = \${\$_[1]->{\"\\\$default_for_requi"..., HASH(0x1018f2028)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019a1cb0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016d33d8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::rework::new("App::Sqitch::Command::rework", HASH(0x10063cb58)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/rework.t line 42 # # ---------- # Previous test 1 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 205) line 260. # at (eval 205) line 260. # eval '{ # my $default_for_requires = ${$_[1]->{"\\$default_for_requires"}}; # my $default_for_conflicts = ${$_[1]->{"\\$default_for_conflicts"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_note = ${$_[1]->{"\\$default_for_note"}}; # my $coerce_for_open_5feditor = ${$_[1]->{"\\$coerce_for_open_5feditor"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::rework::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::rework") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::rework::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for_conflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : $default_for_note->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"open_editor"}) { # $args->{"open_editor"} = do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "open_editor", # name => "open_editor", # step => "coercion", # }; # my $_return; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $_return = # $coerce_for_open_5feditor->($args->{"open_editor"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "coercion for \\"open_editor\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # $_return; # } # ; # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "open_editor", # name => "open_editor", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"open_editor"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(54, "ConfigBool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"open_editor\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"open_editor"} = $args->{"open_editor"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for_requires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"requires\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"requires"} = $value; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::rework::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_requires = \${\$_[1]->{\"\\\$default_for_requi"..., HASH(0x1018f2028)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019a1cb0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016d33d8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::rework::new("App::Sqitch::Command::rework", HASH(0x10063cb58)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/rework.t line 42 # # ---------- # Previous test 8 ''rework command' isa 'App::Sqitch::Command::rework'' # Useless use of array element in void context at (eval 217) line 70. # at (eval 217) line 70. # eval '{ # my $coerce_for_open_5feditor = ${$_[1]->{"\\$coerce_for_open_5feditor"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_open_5feditor = ${$_[1]->{"\\$default_for_open_5feditor"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::rework::open_editor { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "open_editor is a read-only accessor" if @_ > 1; # exists $_[0]->{"open_editor"} ? # $_[0]->{"open_editor"} # : do { # my $value = do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "open_editor", # step => "coercion", # }; # my $_return; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $_return = # $coerce_for_open_5feditor->($default_for_open_5feditor->($_[0])); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "coercion for \\"open_editor\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # $_return; # } # ; # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "open_editor", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(54, "ConfigBool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"open_editor\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"open_editor"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Command::rework::open_editor # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$coerce_for_open_5feditor = \${\$_[1]->{\"\\\$coerce_for_op"..., HASH(0x1019ff450)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1019dcf68)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1019dcf68)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::rework::open_editor(App::Sqitch::Command::rework=HASH(0x1019f1b38)) called at t/rework.t line 89 # # ---------- # Previous test 12 'Note should be an arrayref' # Useless use of array element in void context at (eval 220) line 43. # at (eval 220) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101ae3228)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a02f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a02f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x1018f12a8)) called at t/rework.t line 107 # # ---------- # Previous test 12 'Note should be an arrayref' # Useless use of array element in void context at (eval 221) line 71. # at (eval 221) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ad7f48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ad2a58)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018f12a8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x1018f12a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018f12a8)) called at (eval 220) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1018f12a8)) called at t/rework.t line 107 # # ---------- # Previous test 12 'Note should be an arrayref' # Useless use of array element in void context at (eval 221) line 107. # at (eval 221) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ad7f48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ad2a58)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018f12a8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x1018f12a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018f12a8)) called at (eval 220) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1018f12a8)) called at t/rework.t line 107 # # ---------- # Previous test 12 'Note should be an arrayref' # Useless use of array element in void context at (eval 221) line 256. # at (eval 221) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x101ad7f48)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101ad2a58)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014998b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1018f12a8)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101365d80), "sqitch", App::Sqitch=HASH(0x1018f12a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018f12a8)) called at (eval 220) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1018f12a8)) called at t/rework.t line 107 # # ---------- # Previous test 12 'Note should be an arrayref' # Useless use of array element in void context at (eval 222) line 43. # at (eval 222) line 43. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 815 # App::Sqitch::Plan::rework() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute() called at t/rework.t line 109 # Test::Exception::throws_ok() called at t/rework.t line 109 # # ---------- # Previous test 12 'Note should be an arrayref' # Useless use of array element in void context at (eval 225) line 298, line 1. # at (eval 225) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load() called at (eval 223) line 57 # App::Sqitch::Plan::_plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__() called at (eval 222) line 22 # App::Sqitch::Plan::_changes() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 815 # App::Sqitch::Plan::rework() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute() called at t/rework.t line 109 # Test::Exception::throws_ok() called at t/rework.t line 109 # # ---------- # Previous test 12 'Note should be an arrayref' # Useless use of hash element in void context at (eval 225) line 311, line 1. # at (eval 225) line 311, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load() called at (eval 223) line 57 # App::Sqitch::Plan::_plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__() called at (eval 222) line 22 # App::Sqitch::Plan::_changes() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 815 # App::Sqitch::Plan::rework() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute() called at t/rework.t line 109 # Test::Exception::throws_ok() called at t/rework.t line 109 # # ---------- # Previous test 12 'Note should be an arrayref' # Useless use of array element in void context at (eval 226) line 262, line 2. # at (eval 226) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load() called at (eval 223) line 57 # App::Sqitch::Plan::_plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__() called at (eval 222) line 22 # App::Sqitch::Plan::_changes() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 815 # App::Sqitch::Plan::rework() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute() called at t/rework.t line 109 # Test::Exception::throws_ok() called at t/rework.t line 109 # # ---------- # Previous test 15 'Fail message should say the step does not exist' # Useless use of array element in void context at (eval 233) line 233. # at (eval 233) line 233. # eval '{ # my $default_for_requires = ${$_[1]->{"\\$default_for_requires"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_conflicts = ${$_[1]->{"\\$default_for_conflicts"}}; # my $default_for_with_5fscripts = ${$_[1]->{"\\$default_for_with_5fscripts"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_note = ${$_[1]->{"\\$default_for_note"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::add::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::add") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::add::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for_conflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : $default_for_note->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"open_editor"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "open_editor", # name => "open_editor", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"open_editor"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"open_editor\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"open_editor"} = $args->{"open_editor"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for_requires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"requires\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"requires"} = $value; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"template_directory"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "template_directory", # name => "template_directory", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"template_directory"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"template_directory\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"template_directory"} = $args->{"template_directory"}; # } # if (exists $args->{"template_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "template_name", # name => "template_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"template_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"template_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"template_name"} = $args->{"template_name"}; # } # if (exists $args->{"templates"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "templates", # name => "templates", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"templates"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"templates\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"templates"} = $args->{"templates"}; # } # if (exists $args->{"variables"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "variables", # name => "variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"variables"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"variables"} = $args->{"variables"}; # } # { # my $value = ( # exists $args->{"with_scripts"} # ? $args->{"with_scripts"} # : $default_for_with_5fscripts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_scripts", # name => "with_scripts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_scripts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_scripts"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::add::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_requires = \${\$_[1]->{\"\\\$default_for_requi"..., HASH(0x101accee8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a81518)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016d33f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::add::new("App::Sqitch::Command::add", "sqitch", App::Sqitch=HASH(0x1018f12a8), "template_directory", Path::Class::Dir=HASH(0x101af0588)) called at t/rework.t line 130 # # ---------- # Previous test 19 'test-rework/verify/foo.sql does not exist' # Useless use of array element in void context at (eval 237) line 597. # at (eval 237) line 597. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101a7a968)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101af43c8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x101af0138), "requires", ARRAY(0x101af4440), "name", "foo", "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x101a80ff0), "conflicts", ARRAY(0x101a81110), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101a811e8), "foo") called at t/rework.t line 135 # # ---------- # Previous test 19 'test-rework/verify/foo.sql does not exist' # Useless use of array element in void context at (eval 237) line 633. # at (eval 237) line 633. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101a7a968)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101af43c8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x101af0138), "requires", ARRAY(0x101af4440), "name", "foo", "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x101a80ff0), "conflicts", ARRAY(0x101a81110), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101a811e8), "foo") called at t/rework.t line 135 # # ---------- # Previous test 19 'test-rework/verify/foo.sql does not exist' # Useless use of array element in void context at (eval 237) line 906. # at (eval 237) line 906. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101a7a968)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101af43c8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x101af0138), "requires", ARRAY(0x101af4440), "name", "foo", "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x101a80ff0), "conflicts", ARRAY(0x101a81110), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101a811e8), "foo") called at t/rework.t line 135 # # ---------- # Previous test 19 'test-rework/verify/foo.sql does not exist' # Useless use of array element in void context at (eval 241) line 43. # at (eval 241) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101b2be50)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a2f28)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a2f28)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x1018f12a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1018f12a8)) called at (eval 240) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x1018f12a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101b16b60)) called at (eval 237) line 649 # App::Sqitch::Plan::Change::new(undef, "conflicts", ARRAY(0x101af0138), "requires", ARRAY(0x101af4440), "name", "foo", "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x101a80ff0), "conflicts", ARRAY(0x101a81110), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101a811e8), "foo") called at t/rework.t line 135 # # ---------- # Previous test 19 'test-rework/verify/foo.sql does not exist' # Useless use of array element in void context at (eval 263) line 43. # at (eval 263) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5flines = ${$_[1]->{"\\$default_for__5flines"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_lines { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_lines is a read-only accessor" if @_ > 1; # exists $_[0]->{"_lines"} ? # $_[0]->{"_lines"} # : do { # my $value = $default_for__5flines->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_lines"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_lines # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101d8ce20)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014ab358)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ab358)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101ad2980)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 809 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x101a80ff0), "conflicts", ARRAY(0x101a81110), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x101a811e8), "foo") called at t/rework.t line 135 # # ---------- # Previous test 26 'Fail message should say a tag is needed' # Useless use of array element in void context at (eval 293) line 61. # at (eval 293) line 61. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102258368)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102626028)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "name", "\@alpha", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x101b16b60), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 730 # App::Sqitch::Plan::tag(App::Sqitch::Plan=HASH(0x101ad2980), "name", "\@alpha") called at t/rework.t line 149 # # ---------- # Previous test 26 'Fail message should say a tag is needed' # Useless use of array element in void context at (eval 293) line 441. # at (eval 293) line 441. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102258368)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102626028)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "name", "\@alpha", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x101b16b60), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 730 # App::Sqitch::Plan::tag(App::Sqitch::Plan=HASH(0x101ad2980), "name", "\@alpha") called at t/rework.t line 149 # # ---------- # Previous test 26 'Fail message should say a tag is needed' # Useless use of array element in void context at (eval 293) line 637. # at (eval 293) line 637. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102258368)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x102626028)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "name", "\@alpha", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x101b16b60), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 730 # App::Sqitch::Plan::tag(App::Sqitch::Plan=HASH(0x101ad2980), "name", "\@alpha") called at t/rework.t line 149 # # ---------- # Previous test 30 'test-rework/verify/foo@alpha.sql does not exist' # Useless use of array element in void context at (eval 298) line 57. # at (eval 298) line 57. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102614bf8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1025e0780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "change", "foo", "tag", "alpha") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x1019f12c8), "conflicts", ARRAY(0x1019a1f20), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute(App::Sqitch::Command::rework=HASH(0x1018f1470), "foo") called at t/rework.t line 157 # # ---------- # Previous test 30 'test-rework/verify/foo@alpha.sql does not exist' # Useless use of array element in void context at (eval 298) line 206. # at (eval 298) line 206. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102614bf8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1025e0780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "change", "foo", "tag", "alpha") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x1019f12c8), "conflicts", ARRAY(0x1019a1f20), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute(App::Sqitch::Command::rework=HASH(0x1018f1470), "foo") called at t/rework.t line 157 # # ---------- # Previous test 30 'test-rework/verify/foo@alpha.sql does not exist' # Useless use of array element in void context at (eval 298) line 278. # at (eval 298) line 278. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102614bf8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1025e0780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "change", "foo", "tag", "alpha") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x1019f12c8), "conflicts", ARRAY(0x1019a1f20), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute(App::Sqitch::Command::rework=HASH(0x1018f1470), "foo") called at t/rework.t line 157 # # ---------- # Previous test 30 'test-rework/verify/foo@alpha.sql does not exist' # Useless use of array element in void context at (eval 298) line 314. # at (eval 298) line 314. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102614bf8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1025e0780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "change", "foo", "tag", "alpha") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x1019f12c8), "conflicts", ARRAY(0x1019a1f20), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute(App::Sqitch::Command::rework=HASH(0x1018f1470), "foo") called at t/rework.t line 157 # # ---------- # Previous test 30 'test-rework/verify/foo@alpha.sql does not exist' # Useless use of array element in void context at (eval 298) line 350. # at (eval 298) line 350. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102614bf8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1025e0780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "change", "foo", "tag", "alpha") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x1019f12c8), "conflicts", ARRAY(0x1019a1f20), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute(App::Sqitch::Command::rework=HASH(0x1018f1470), "foo") called at t/rework.t line 157 # # ---------- # Previous test 30 'test-rework/verify/foo@alpha.sql does not exist' # Useless use of array element in void context at (eval 298) line 386. # at (eval 298) line 386. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Depend") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Depend::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(got_id got_project plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"change"} = $args->{"change"}; # } # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"conflicts\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"conflicts"} = $value; # } # if (exists $args->{"got_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_id", # name => "got_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_id"} = $args->{"got_id"}; # } # if (exists $args->{"got_project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "got_project", # name => "got_project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"got_project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"got_project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"got_project"} = $args->{"got_project"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"is_external"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "is_external", # name => "is_external", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"is_external"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"is_external\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"is_external"} = $args->{"is_external"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"resolved_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "resolved_id", # name => "resolved_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"resolved_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"resolved_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"resolved_id"} = $args->{"resolved_id"}; # } # if (exists $args->{"tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "tag", # name => "tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"tag"} = $args->{"tag"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x102614bf8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1025e0780)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ecd18)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x101ad2980), "change", "foo", "tag", "alpha") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 832 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x1019f12c8), "conflicts", ARRAY(0x1019a1f20), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute(App::Sqitch::Command::rework=HASH(0x1018f1470), "foo") called at t/rework.t line 157 # # ---------- # Previous test 30 'test-rework/verify/foo@alpha.sql does not exist' # Useless use of array element in void context at (eval 299) line 43. # at (eval 299) line 43. # eval '{ # my $default_for_project = ${$_[1]->{"\\$default_for_project"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Depend::project { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "project is a read-only accessor" if @_ > 1; # exists $_[0]->{"project"} ? # $_[0]->{"project"} # : do { # my $value = $default_for_project->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"project"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Depend::project # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_project = \${\$_[1]->{\"\\\$default_for_projec"..., HASH(0x1025dfd00)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10150e5b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10150e5b8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::project(App::Sqitch::Plan::Depend=HASH(0x1025e0558)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 856 # App::Sqitch::Plan::_check_dependencies(App::Sqitch::Plan=HASH(0x101ad2980), App::Sqitch::Plan::Change=HASH(0x1025d2a48), "rework") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 842 # App::Sqitch::Plan::rework(App::Sqitch::Plan=HASH(0x101ad2980), "name", "foo", "requires", ARRAY(0x1019f12c8), "conflicts", ARRAY(0x1019a1f20), "note", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/rework.pm line 73 # App::Sqitch::Command::rework::execute(App::Sqitch::Command::rework=HASH(0x1018f1470), "foo") called at t/rework.t line 157 # # Looks like you failed 1 test of 95. t/rework.t .......... 1..95 ok 1 - Load a sqitch sqitch object ok 2 - 'rework command' isa 'App::Sqitch::Command::rework' ok 3 - App::Sqitch::Command::rework->can(...) ok 4 - Options should be set up ok 5 - Should have default configuration with no config or opts ok 6 - Should have get requires, conflicts, and note options ok 7 - Grabs rework.open_editor from config ok 8 - 'rework command' isa 'App::Sqitch::Command::rework' ok 9 - Coerces rework.open_editor from config string boolean ok 10 - Requires should be an arrayref ok 11 - Conflicts should be an arrayref ok 12 - Note should be an arrayref ok 13 - Should get an example for nonexistent change ok 14 - Nonexistent change error ident should be "plan" ok 15 - Fail message should say the step does not exist ok 16 - Create another add with template_directory ok 17 - test-rework/deploy/foo.sql does not exist ok 18 - test-rework/revert/foo.sql does not exist ok 19 - test-rework/verify/foo.sql does not exist ok 20 - test-rework/deploy/foo.sql exists ok 21 - test-rework/revert/foo.sql exists ok 22 - test-rework/verify/foo.sql exists ok 23 - Get the "foo" change ok 24 - Should get an example for duplicate change ok 25 - Duplicate change error ident should be "plan" ok 26 - Fail message should say a tag is needed ok 27 - Tag it ok 28 - test-rework/deploy/foo@alpha.sql does not exist ok 29 - test-rework/revert/foo@alpha.sql does not exist ok 30 - test-rework/verify/foo@alpha.sql does not exist ok 31 - Rework "foo" ok 32 - test-rework/deploy/foo.sql exists ok 33 - test-rework/revert/foo.sql exists ok 34 - test-rework/verify/foo.sql exists ok 35 - test-rework/deploy/foo@alpha.sql exists ok 36 - test-rework/revert/foo@alpha.sql exists ok 37 - test-rework/verify/foo@alpha.sql exists ok 38 - test-rework/deploy/foo@alpha.sql and test-rework/deploy/foo.sql contents are the same ok 39 - test-rework/verify/foo@alpha.sql and test-rework/verify/foo.sql contents are the same ok 40 - test-rework/revert/foo.sql and test-rework/deploy/foo.sql contents are the same ok 41 - New revert should revert ok 42 - It should have prompted for a note ok 43 - Reload the plan file ok 44 - Get the steps ok 45 - Should have two steps ok 46 - First step should be "foo" ok 47 - Second step should also be "foo" ok 48 - Reworked step should require the previous step ok 49 - And the info message should suggest editing the old files ok 50 - Debug should show file copying ok 51 - Create another add with template_directory ok 52 - test-rework/deploy/bar.sql does not exist ok 53 - test-rework/revert/bar.sql does not exist ok 54 - test-rework/verify/bar.sql does not exist ok 55 - test-rework/deploy/bar.sql exists ok 56 - test-rework/revert/bar.sql does not exist ok 57 - test-rework/verify/bar.sql does not exist ok 58 - Tag it with @beta ok 59 - 'rework command with requirements and conflicts' isa 'App::Sqitch::Command::rework' ok 60 - test-rework/deploy/bar@beta.sql does not exist ok 61 - test-rework/revert/bar@beta.sql does not exist ok 62 - test-rework/verify/bar@beta.sql does not exist ok 63 - Rework "bar" ok 64 - test-rework/deploy/bar.sql exists ok 65 - test-rework/revert/bar.sql does not exist ok 66 - test-rework/verify/bar.sql does not exist ok 67 - test-rework/deploy/bar@beta.sql exists ok 68 - test-rework/revert/bar@beta.sql does not exist ok 69 - test-rework/verify/bar@beta.sql does not exist ok 70 - It should have prompted for a note ok 71 - Reload the plan file again ok 72 - Get the steps ok 73 - Should have four steps ok 74 - First step should be "foo" ok 75 - Second step should also be "foo" ok 76 - First step should be "bar" ok 77 - Second step should also be "bar" ok 78 - Requires should have been passed to reworked change ok 79 - Conflicts should have been passed to reworked change ok 80 - Note should have been passed as comment ok 81 - And the info message should show only the one file to modify ok 82 - Should have debug oputput for missing files ok 83 - Create another add with open_editor ok 84 - Tag it ok 85 - test-rework/deploy/bar@gamma.sql does not exist ok 86 - test-rework/revert/bar@gamma.sql does not exist ok 87 - test-rework/verify/bar@gamma.sql does not exist ok 88 - Rework "bar" ok 89 - test-rework/deploy/bar.sql exists ok 90 - test-rework/deploy/bar@gamma.sql exists ok 91 - test-rework/revert/bar@gamma.sql does not exist ok 92 - test-rework/verify/bar@gamma.sql does not exist ok 93 - It should have prompted to edit sql files ok 94 - And the info message should suggest editing the old files not ok 95 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/95 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Useless use of array element in void context at (eval 196) line 77. Useless use of array element in void context at (eval 196) line 438. Useless use of array element in void context at (eval 196) line 515. Useless use of array element in void context at (eval 197) line 111. Useless use of array element in void context at (eval 203) line 43. Useless use of array element in void context at (eval 204) line 71. Useless use of array element in void context at (eval 204) line 107. Useless use of array element in void context at (eval 204) line 256. Useless use of array element in void context at (eval 205) line 43. Useless use of array element in void context at (eval 209) line 298, line 1. Useless use of array element in void context at (eval 210) line 262, line 2. Useless use of array element in void context at (eval 221) line 597, line 3. Useless use of array element in void context at (eval 221) line 633, line 3. Useless use of array element in void context at (eval 221) line 906, line 3. Useless use of hash element in void context at (eval 221) line 646, line 3. Useless use of array element in void context at (eval 222) line 61, line 4. Useless use of array element in void context at (eval 222) line 441, line 4. Useless use of array element in void context at (eval 222) line 637, line 4. Useless use of array element in void context at (eval 224) line 57, line 5. Useless use of array element in void context at (eval 224) line 206, line 5. Useless use of array element in void context at (eval 224) line 278, line 5. Useless use of array element in void context at (eval 224) line 314, line 5. Useless use of array element in void context at (eval 224) line 350, line 5. Useless use of array element in void context at (eval 224) line 386, line 5. Useless use of array element in void context at (eval 238) line 43. t/show.t ............ ok 1 - require App::Sqitch::Command::show; ok 2 - The class (or class-like) 'App::Sqitch::Command::show' isa 'App::Sqitch::Command' ok 3 - App::Sqitch::Command::show->can(...) ok 4 - Options should be correct ok 5 - An object of class 'App::Sqitch::Command::show' isa 'App::Sqitch::Command::show' ok 6 - exists_only should be false by default ok 7 - Construct with exists_only ok 8 - exists_only should be set ok 9 - Should get empty hash for no config or options ok 10 - Should get exists_only => 1 for exist in options ok 11 - Get a change ok 12 - Find change by id ok 13 - The change info should have been emitted ok 14 - Find change by name ok 15 - The change info should have been emitted again ok 16 - Should get an error for an unknown change ok 17 - Unknown change error ident should be "show" ok 18 - Should get proper error for unknown change ok 19 - Should return false for uknown change and exists_only ok 20 - Nothing should have been emitted ok 21 - Find change by tag id ok 22 - The change info should have been emitted ok 23 - Find change by tag ok 24 - The change info should have been emitted ok 25 - Run exists with ID ok 26 - There should be no output ok 27 - Find tag by id ok 28 - The tag info should have been emitted ok 29 - Find tag by id with exists_only ok 30 - Nothing should have been emitted ok 31 - Find tag by name ok 32 - The tag info should have been emitted ok 33 - Find tag by formatted name ok 34 - The tag info should have been emitted ok 35 - Should get error for non-existent tag ok 36 - Unknown tag error ident should be "show" ok 37 - Should get proper error for unknown tag ok 38 - Should return false for non-existent tag and exists_only ok 39 - Nothing should have been emitted ok 40 - Should get error for non-existent tag ID ok 41 - Unknown tag ID error ident should be "show" ok 42 - Should get proper error for unknown tag ID ok 43 - Show a deploy file ok 44 - The deploy file should have been emitted ok 45 - Show a deploy file with exists_only ok 46 - Nothing should have been emitted ok 47 - Show a revert file ok 48 - The revert file should have been emitted ok 49 - Should get error for nonexistent varify file ok 50 - Nonexistent file error ident should be "show" ok 51 - Should get proper error for nonexistent file ok 52 - Should return false for nonexistent file ok 53 - Nothing should have been emitted ok 54 - Should get usage for missing params ok 55 - Nothing should have been passed to usage ok 56 - Should get error for uknown type ok 57 - Unknown type error ident should be "show" ok 58 - Should get proper error for unknown type 1..58 ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Eval went very, very wrong: { my $default_for__5fwas_5fset = ${$_[1]->{"\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\$trigger_for_deploy_5fdir"}}; no warnings 'closure'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq 'HASH' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"_engine\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"config\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_client\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_host\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\A-?[0-9]+\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_port\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_username\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"deploy_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"extension\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"pager\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"plan\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"revert_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"sysuser\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"top_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_email\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"verify_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \&App::Sqitch::new } 1; Useless use of array element in void context at (eval 203) line 77. at (eval 203) line 77. eval '{ my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; no warnings \'closure\'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"_engine\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"config\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_client\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_host\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_port\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_username\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"extension\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"pager\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"plan\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"revert_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"sysuser\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"top_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_email\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"verify_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \\&App::Sqitch::new } 1; ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x10104e840)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 Sub::Quote::unquote_sub(CODE(0x1002b30a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 Sub::Defer::undefer_sub(CODE(0x10045be68)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 App::Sqitch::new("App::Sqitch", "_engine", "sqlite", "db_name", "foo.db") called at t/sqlite.t line 33 # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 255 just after 2. t/sqlite.t .......... ok 1 - require App::Sqitch::Engine::sqlite; ok 2 - config_vars should return three vars Dubious, test returned 255 (wstat 65280, 0xff00) All 2 subtests passed Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 22 warning(s) # Previous test 1 'require App::Sqitch::Command::status;' # Useless use of array element in void context at (eval 197) line 77. # at (eval 197) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10176b5c8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x10179d0c8), "_engine", "sqlite") called at t/status.t line 24 # # ---------- # Previous test 1 'require App::Sqitch::Command::status;' # Useless use of array element in void context at (eval 197) line 438. # at (eval 197) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10176b5c8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x10179d0c8), "_engine", "sqlite") called at t/status.t line 24 # # ---------- # Previous test 1 'require App::Sqitch::Command::status;' # Useless use of array element in void context at (eval 197) line 515. # at (eval 197) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10176b5c8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x10179d0c8), "_engine", "sqlite") called at t/status.t line 24 # # ---------- # Previous test 2 'Load a sqitch object' # Useless use of array element in void context at (eval 204) line 214. # at (eval 204) line 214. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::status::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::status") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::status::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"date_format"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "date_format", # name => "date_format", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"date_format"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"date_format\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"date_format"} = $args->{"date_format"}; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"show_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "show_changes", # name => "show_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"show_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"show_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"show_changes"} = $args->{"show_changes"}; # } # if (exists $args->{"show_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "show_tags", # name => "show_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"show_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"show_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"show_tags"} = $args->{"show_tags"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::status::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1017cc788)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1018a8148)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101786120)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::status::new("App::Sqitch::Command::status", HASH(0x10063cb58)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/status.t line 29 # # ---------- # Previous test 5 'Options should be correct' # Useless use of array element in void context at (eval 215) line 43. # at (eval 215) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan() called at (eval 213) line 17 # App::Sqitch::Command::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__() called at (eval 212) line 22 # App::Sqitch::Command::status::project() called at t/status.t line 71 # Test::Exception::throws_ok() called at t/status.t line 71 # # ---------- # Previous test 5 'Options should be correct' # Useless use of array element in void context at (eval 216) line 71. # at (eval 216) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 215) line 22 # App::Sqitch::plan() called at (eval 213) line 17 # App::Sqitch::Command::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__() called at (eval 212) line 22 # App::Sqitch::Command::status::project() called at t/status.t line 71 # Test::Exception::throws_ok() called at t/status.t line 71 # # ---------- # Previous test 5 'Options should be correct' # Useless use of array element in void context at (eval 216) line 107. # at (eval 216) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 215) line 22 # App::Sqitch::plan() called at (eval 213) line 17 # App::Sqitch::Command::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__() called at (eval 212) line 22 # App::Sqitch::Command::status::project() called at t/status.t line 71 # Test::Exception::throws_ok() called at t/status.t line 71 # # ---------- # Previous test 5 'Options should be correct' # Useless use of array element in void context at (eval 216) line 256. # at (eval 216) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new() called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__() called at (eval 215) line 22 # App::Sqitch::plan() called at (eval 213) line 17 # App::Sqitch::Command::plan() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__() called at (eval 212) line 22 # App::Sqitch::Command::status::project() called at t/status.t line 71 # Test::Exception::throws_ok() called at t/status.t line 71 # # ---------- # Previous test 5 'Options should be correct' # Useless use of array element in void context at (eval 227) line 379. # at (eval 227) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at (eval 224) line 17 # App::Sqitch::Command::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 67 # App::Sqitch::Command::status::catch {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 104 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__() called at (eval 212) line 22 # App::Sqitch::Command::status::project() called at t/status.t line 71 # Test::Exception::throws_ok() called at t/status.t line 71 # # ---------- # Previous test 5 'Options should be correct' # Useless use of array element in void context at (eval 227) line 456. # at (eval 227) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at (eval 224) line 17 # App::Sqitch::Command::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 67 # App::Sqitch::Command::status::catch {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 104 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__() called at (eval 212) line 22 # App::Sqitch::Command::status::project() called at t/status.t line 71 # Test::Exception::throws_ok() called at t/status.t line 71 # # ---------- # Previous test 5 'Options should be correct' # Useless use of array element in void context at (eval 227) line 528. # at (eval 227) line 528. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::sqlite::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::sqlite") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::sqlite::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_sqlite3"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_sqlite3", # name => "_sqlite3", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_sqlite3"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_sqlite3\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_sqlite3"} = $args->{"_sqlite3"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"registry_uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry_uri", # name => "registry_uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry_uri"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC9($_[0])) ? $_[0] : Type::Tiny::_failed_check(46, "URIDB", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry_uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry_uri"} = $args->{"registry_uri"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # $new->App::Sqitch::Engine::sqlite::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::sqlite::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine() called at (eval 224) line 17 # App::Sqitch::Command::engine() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 67 # App::Sqitch::Command::status::catch {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 104 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__() called at (eval 212) line 22 # App::Sqitch::Command::status::project() called at t/status.t line 71 # Test::Exception::throws_ok() called at t/status.t line 71 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of array element in void context at (eval 246) line 298, line 1. # at (eval 246) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101d24358)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e83ac0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101580948)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of array element in void context at (eval 247) line 262, line 2. # at (eval 247) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101e78180)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e838f8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101519ba8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "lspace", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of array element in void context at (eval 258) line 597, line 3. # at (eval 258) line 597, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101e5d108)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e44a70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "name", "roles", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x101e447d0), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of array element in void context at (eval 258) line 633, line 3. # at (eval 258) line 633, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101e5d108)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e44a70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "name", "roles", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x101e447d0), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of array element in void context at (eval 258) line 906, line 3. # at (eval 258) line 906, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101e5d108)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e44a70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "name", "roles", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x101e447d0), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of hash element in void context at (eval 258) line 646, line 3. # at (eval 258) line 646, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101e5d108)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101e44a70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542f58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "name", "roles", "rspace", "", "timestamp", App::Sqitch::DateTime=HASH(0x101e447d0), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of array element in void context at (eval 259) line 61, line 5. # at (eval 259) line 61, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10239ce58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10243f240)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "change", App::Sqitch::Plan::Change=HASH(0x10243ed78), "name", "alpha", "rspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of array element in void context at (eval 259) line 441, line 5. # at (eval 259) line 441, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10239ce58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10243f240)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "change", App::Sqitch::Plan::Change=HASH(0x10243ed78), "name", "alpha", "rspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 24 ''another status command' isa 'App::Sqitch::Command::status'' # Useless use of array element in void context at (eval 259) line 637, line 5. # at (eval 259) line 637, line 5. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10239ce58)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10243f240)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d47c0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x1017e1cf0), "change", App::Sqitch::Plan::Change=HASH(0x10243ed78), "name", "alpha", "rspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x1017e1cf0), Path::Class::File=HASH(0x101d974f8), IO::File=GLOB(0x101d9c658)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 218) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at (eval 217) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x1017e1cf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 62 # App::Sqitch::Command::status::try {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 76 # eval {...} called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x101d973c0), Try::Tiny::Catch=REF(0x101d9d8a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 77 # App::Sqitch::Command::status::__ANON__(App::Sqitch::Command::status=HASH(0x1018e5318)) called at (eval 212) line 22 # App::Sqitch::Command::status::project(App::Sqitch::Command::status=HASH(0x1018e5318)) called at t/status.t line 128 # # ---------- # Previous test 63 'Should have emitted all three tags' # Useless use of array element in void context at (eval 285) line 43, line 8. # at (eval 285) line 43, line 8. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x10243ddd8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014ab628)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014ab628)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x1025a4d18)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 580 # App::Sqitch::Plan::changes(App::Sqitch::Plan=HASH(0x1025a4d18)) called at t/status.t line 406 # # ---------- # Previous test 108 'The "On database" comment should have been emitted' # Useless use of array element in void context at (eval 327) line 43. # at (eval 327) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_registry = ${$_[1]->{"\\$default_for_registry"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::registry { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "registry is a read-only accessor" if @_ > 1; # exists $_[0]->{"registry"} ? # $_[0]->{"registry"} # : do { # my $value = $default_for_registry->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"registry"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Engine::registry # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub() called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::registry() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 39 # App::Sqitch::Engine::sqlite::__ANON__() called at (eval 326) line 22 # App::Sqitch::Engine::sqlite::registry_uri() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine/sqlite.pm line 67 # App::Sqitch::Engine::sqlite::registry_destination() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 114 # App::Sqitch::Command::status::catch {...} () called at /export/home/fly1464/var/megalib/Try/Tiny.pm line 104 # Try::Tiny::try() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/status.pm line 118 # App::Sqitch::Command::status::execute() called at t/status.t line 555 # Test::Exception::throws_ok() called at t/status.t line 555 # # Looks like you failed 1 test of 112. t/status.t .......... 1..112 ok 1 - require App::Sqitch::Command::status; ok 2 - Load a sqitch object ok 3 - 'status command' isa 'App::Sqitch::Command::status' ok 4 - App::Sqitch::Command::status->can(...) ok 5 - Options should be correct ok 6 - Should have error for uninitialized database ok 7 - Uninitialized database error ident should be "status" ok 8 - Uninitialized database error message should be correct ok 9 - 'new status command' isa 'App::Sqitch::Command::status' ok 10 - Should have project "foo" ok 11 - Load a sqitch object with SQLite ok 12 - Create another status command ok 13 - Should get an error for uninitialized db ok 14 - Uninitialized db error ident should be "status" ok 15 - Uninitialized db error message should be correct ok 16 - Should get an error for no registered projects ok 17 - No projects error ident should be "status" ok 18 - No projects error message should be correct ok 19 - Should get an error for too many projects ok 20 - Too many projects error ident should be "status" ok 21 - Too many projects error message should be correct ok 22 - Should find single project ok 23 - Load another sqitch object ok 24 - 'another status command' isa 'App::Sqitch::Command::status' ok 25 - Should have plan project ok 26 - Default target should be undef ok 27 - 'new status with target' isa 'App::Sqitch::Command::status' ok 28 - Should have target "foo" ok 29 - Should get empty hash for no config or options ok 30 - Should get error for invalid date format in config ok 31 - Invalid date format error ident should be "datetime" ok 32 - Invalid date format error message should be correct ok 33 - Should get error for invalid date format in optsions ok 34 - Invalid date format error ident should be "status" ok 35 - Invalid date format error message should be correct ok 36 - Emit the state ok 37 - The state should have been emitted ok 38 - Emit the state with a tag ok 39 - The state should have been emitted with a tag ok 40 - Emit the state with multiple tags ok 41 - The state should have been emitted with multiple tags ok 42 - Create status command with an engine ok 43 - Try to emit changes ok 44 - Should have emitted no changes ok 45 - Create change-showing status command ok 46 - Emit changes again ok 47 - Project "foo" should have been passed to current_changes ok 48 - Should have emitted one change ok 49 - Emit changes thrice ok 50 - Project "foo" again should have been passed to current_changes ok 51 - Should have emitted three changes ok 52 - Try to emit tags ok 53 - No tags should have been emitted ok 54 - Create tag-showing status command ok 55 - Try to emit tags again ok 56 - Project "bar" should be passed to current_tags() ok 57 - Should have emitted a header for no tags ok 58 - Emit tags ok 59 - Project "bar" should again be passed to current_tags() ok 60 - Should have emitted one tag ok 61 - Emit tags again ok 62 - Project "bar" should once more be passed to current_tags() ok 63 - Should have emitted all three tags ok 64 - Create status command with actual plan command ok 65 - Emit status ok 66 - Should have a blank comment line ok 67 - Should emit up-to-date output ok 68 - Emit status again ok 69 - Should have a blank comment line ok 70 - Should emit list of undeployed changes ok 71 - Emit status thrice ok 72 - Should have a blank comment line ok 73 - Should emit list of undeployed changes ok 74 - Die on invalid ID ok 75 - Invalid ID error ident should be "status" ok 76 - The invalid ID error message should be correct ok 77 - Should have a blank comment line ok 78 - Should have a message about inability to find the change ok 79 - Execute ok 80 - The state should have been emitted ok 81 - Should emit list of undeployed changes ok 82 - No DB arg should have been passed to engine_for_db ok 83 - Execute with target arg ok 84 - The state should have been emitted ok 85 - Should emit list of undeployed changes ok 86 - DB arg "db:sqlite:" should have been passed to engine_for_db ok 87 - Create status command with a target option ok 88 - Execute with target attribute ok 89 - The state should have been emitted ok 90 - Should emit list of undeployed changes ok 91 - DB arg "db:sqlite:" should have been passed to engine_for_db ok 92 - Execute with target attribute and arg ok 93 - The state should have been emitted ok 94 - Should emit list of undeployed changes ok 95 - DB arg "db:sqlite:" should have been passed to engine_for_db ok 96 - Should have got warning for two targets ok 97 - Create status command with specified project ok 98 - Execute for specified project ok 99 - The specified project state should have been emitted ok 100 - Should emit unknown status message for specified project ok 101 - Create status command with external project ok 102 - Execute for external project ok 103 - The external project state should have been emitted ok 104 - Should emit unknown status message for external project ok 105 - Die on no state ok 106 - No state error ident should be "status" ok 107 - No state error message should be correct ok 108 - The "On database" comment should have been emitted ok 109 - Should get an error for uninitialized db ok 110 - Uninitialized db error ident should be "status" ok 111 - Uninitialized db error message should be correct not ok 112 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/112 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 36 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. # at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x100bc6400)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x100bc6328)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x100bc6268)) called at /export/home/fly1464/var/megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at /export/home/fly1464/var/megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at /export/home/fly1464/var/megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x100e96658), "required", 1) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x100f58d48)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x1011844c0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1013b5660)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Plan", "class", "App::Sqitch::Plan") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x101180bb8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1013bfe58)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Change", "class", "App::Sqitch::Plan::Change") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x1011c41e0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1013cb3a8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "ChangeList", "class", "App::Sqitch::Plan::ChangeList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x1011c4180)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1013d1978)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "LineList", "class", "App::Sqitch::Plan::LineList") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x1011cbc90)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1013d7e20)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Tag", "class", "App::Sqitch::Plan::Tag") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x1011cbcf0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1013e2ff8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Depend", "class", "App::Sqitch::Plan::Depend") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x1011c4078)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1013e95e0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DateTime", "class", "App::Sqitch::DateTime") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x1013bf870)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1013efe48)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x1011cc6f8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x101400178)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Config", "class", "App::Sqitch::Config") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x1011849d0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x1014045d8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "File", "class", "Path::Class::File") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x1013d16c0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x10140b7e0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Dir", "class", "Path::Class::Dir") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x1013e2d58)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny::Class=HASH(0x101413dd8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at /export/home/fly1464/var/megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x1013e9340)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny=HASH(0x10141c0d0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x100e96658), "constraint", CODE(0x1013901b0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny=HASH(0x1014242a0)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x100e96658), "constraint", CODE(0x1013903a8)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny=HASH(0x10142ced8)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x101390570)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # at /export/home/fly1464/var/megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x1011c40d8), Type::Tiny=HASH(0x101430c70)) called at /export/home/fly1464/var/megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x100bfbf68)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at /export/home/fly1464/var/megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at /export/home/fly1464/var/megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x101540368), ARRAY(0x1014cae78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/tag.t line 11 # main::BEGIN() called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 123 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 195) line 77. # at (eval 195) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101096c20)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017eb000)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100896618)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002cbf68)) called at t/tag.t line 44 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 195) line 438. # at (eval 195) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101096c20)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017eb000)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100896618)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002cbf68)) called at t/tag.t line 44 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 195) line 515. # at (eval 195) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x101096c20)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017eb000)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100896618)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002cbf68)) called at t/tag.t line 44 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 196) line 71. # at (eval 196) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017f2170)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101888468)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153cb60)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1017eb750)) called at t/tag.t line 45 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 196) line 107. # at (eval 196) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017f2170)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101888468)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153cb60)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1017eb750)) called at t/tag.t line 45 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 196) line 256. # at (eval 196) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1017f2170)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101888468)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10153cb60)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1017eb750)) called at t/tag.t line 45 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 197) line 597. # at (eval 197) line 597. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x10189fce8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10189f790)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015ede50)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x101888540), "name", "roles") called at t/tag.t line 46 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 197) line 633. # at (eval 197) line 633. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x10189fce8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10189f790)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015ede50)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x101888540), "name", "roles") called at t/tag.t line 46 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 197) line 906. # at (eval 197) line 906. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x10189fce8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10189f790)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015ede50)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x101888540), "name", "roles") called at t/tag.t line 46 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 208) line 43. # at (eval 208) line 43. # eval '{ # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_sysuser = \${\$_[1]->{\"\\\$default_for_sysuse"..., HASH(0x101918690)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017515d0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1017515d0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x1017eb750)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1017eb750)) called at (eval 200) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x1017eb750)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x1018cac88)) called at (eval 197) line 649 # App::Sqitch::Plan::Change::new(undef, "plan", App::Sqitch::Plan=HASH(0x101888540), "name", "roles") called at t/tag.t line 46 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 221) line 61. # at (eval 221) line 61. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019ea150)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1cda0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101578778)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101888540), "change", App::Sqitch::Plan::Change=HASH(0x1018cac88)) called at t/tag.t line 48 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 221) line 441. # at (eval 221) line 441. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019ea150)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1cda0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101578778)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101888540), "change", App::Sqitch::Plan::Change=HASH(0x1018cac88)) called at t/tag.t line 48 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of array element in void context at (eval 221) line 637. # at (eval 221) line 637. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019ea150)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1cda0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101578778)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101888540), "change", App::Sqitch::Plan::Change=HASH(0x1018cac88)) called at t/tag.t line 48 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of hash element in void context at (eval 221) line 74. # at (eval 221) line 74. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019ea150)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1cda0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101578778)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101888540), "change", App::Sqitch::Plan::Change=HASH(0x1018cac88)) called at t/tag.t line 48 # # ---------- # Previous test 2 'App::Sqitch::Plan::Tag->can(...)' # Useless use of hash element in void context at (eval 221) line 454. # at (eval 221) line 454. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019ea150)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101a1cda0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101578778)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101888540), "change", App::Sqitch::Plan::Change=HASH(0x1018cac88)) called at t/tag.t line 48 # # ---------- # Previous test 10 'Should as_string to "@foo" + timstamp + planner' # Useless use of array element in void context at (eval 236) line 298, line 1. # at (eval 236) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101e937e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020bf9e8)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016295f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x101888540), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101888540), Path::Class::File=HASH(0x101742fb0), IO::File=GLOB(0x101742b48)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101888540)) called at (eval 232) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101888540)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101888540)) called at (eval 231) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x101888540)) called at (eval 230) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Tag=HASH(0x101e98878)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 26 # App::Sqitch::Plan::Tag::__ANON__(App::Sqitch::Plan::Tag=HASH(0x101e98878)) called at (eval 229) line 22 # App::Sqitch::Plan::Tag::info(App::Sqitch::Plan::Tag=HASH(0x101e98878)) called at t/tag.t line 75 # # ---------- # Previous test 10 'Should as_string to "@foo" + timstamp + planner' # Useless use of array element in void context at (eval 237) line 262, line 2. # at (eval 237) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1020b9ee0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1020bf820)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1015a09f0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x101888540), "lspace", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101888540), Path::Class::File=HASH(0x101742fb0), IO::File=GLOB(0x101742b48)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101888540)) called at (eval 232) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101888540)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101888540)) called at (eval 231) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x101888540)) called at (eval 230) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Tag=HASH(0x101e98878)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Tag.pm line 26 # App::Sqitch::Plan::Tag::__ANON__(App::Sqitch::Plan::Tag=HASH(0x101e98878)) called at (eval 229) line 22 # App::Sqitch::Plan::Tag::info(App::Sqitch::Plan::Tag=HASH(0x101e98878)) called at t/tag.t line 75 # # Looks like you failed 1 test of 27. t/tag.t ............. 1..27 ok 1 - require App::Sqitch::Plan::Tag; ok 2 - App::Sqitch::Plan::Tag->can(...) ok 3 - An object of class 'App::Sqitch::Plan::Tag' isa 'App::Sqitch::Plan::Tag' ok 4 - An object of class 'App::Sqitch::Plan::Tag' isa 'App::Sqitch::Plan::Line' ok 5 - Name should format as "@foo" ok 6 - 'Timestamp' isa 'App::Sqitch::DateTime' ok 7 - Planner name shoudld default to user name ok 8 - Planner email shoudld default to user email ok 9 - Planner name and email should format properly ok 10 - Should as_string to "@foo" + timstamp + planner ok 11 - Tag info should incldue the URI ok 12 - Old tag info should incldue the URI ok 13 - Create tag with more stuff ok 14 - It should as_string correctly ok 15 - Change should be correct ok 16 - Planner name and email should format properly ok 17 - Change should be for previous change ok 18 - Tag info should include the change ok 19 - Tag ID should be correct ok 20 - Old tag info should include the change ok 21 - Old tag ID should be correct ok 22 - Create tag with UTF-8 name ok 23 - The name should be decoded text in info ok 24 - Tag ID should be hahsed from encoded UTF-8 ok 25 - Old name should be decoded text in info ok 26 - Old tag ID should be hahsed from encoded UTF-8 not ok 27 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/27 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 19 warning(s) # Previous test 0 '' # Useless use of array element in void context at (eval 194) line 77. # at (eval 194) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010534d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10172c230)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100453cd8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/tag_cmd.t line 21 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 194) line 438. # at (eval 194) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010534d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10172c230)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100453cd8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/tag_cmd.t line 21 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 194) line 515. # at (eval 194) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010534d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10172c230)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100453cd8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x1002b30e8)) called at t/tag_cmd.t line 21 # # ---------- # Previous test 1 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 202) line 112. # at (eval 202) line 112. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_note = ${$_[1]->{"\\$default_for_note"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : $default_for_note->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$default_"..., HASH(0x101110828)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1012c1d70)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1017eae60)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::tag::new("App::Sqitch::Command::tag", HASH(0x10063bd78)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016aca70)) called at t/tag_cmd.t line 25 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 205) line 43. # at (eval 205) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $default_for_plan = ${$_[1]->{"\\$default_for_plan"}}; # no warnings \'closure\'; # sub App::Sqitch::plan { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "plan is a read-only accessor" if @_ > 1; # exists $_[0]->{"plan"} ? # $_[0]->{"plan"} # : do { # my $value = $default_for_plan->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"plan"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::plan # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x10182fd38)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10169f4b0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10169f4b0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x1002bbf98)) called at t/tag_cmd.t line 57 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 206) line 71. # at (eval 206) line 71. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1014236d0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101840598)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101498c90)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002bbf98)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101364ad0), "sqitch", App::Sqitch=HASH(0x1002bbf98)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002bbf98)) called at (eval 205) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1002bbf98)) called at t/tag_cmd.t line 57 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 206) line 107. # at (eval 206) line 107. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1014236d0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101840598)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101498c90)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002bbf98)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101364ad0), "sqitch", App::Sqitch=HASH(0x1002bbf98)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002bbf98)) called at (eval 205) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1002bbf98)) called at t/tag_cmd.t line 57 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 206) line 256. # at (eval 206) line 256. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_changes"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_changes", # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_changes"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_changes"} = $args->{"_changes"}; # } # if (exists $args->{"_lines"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_lines", # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_lines"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_lines"} = $args->{"_lines"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "_plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'HASH\') ? $_[0] : Type::Tiny::_failed_check(20, "HashRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_plan\\" (constructor argument: \\"plan\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"position"} # ? $args->{"position"} # : "-1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "position", # name => "position", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"position\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"position"} = $value; # } # if (exists $args->{"project"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "project", # name => "project", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"project"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"project\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"project"} = $args->{"project"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"sqitch"} = $args->{"sqitch"}); no warnings \'void\'; $new->{"sqitch"} }; # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1014236d0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101840598)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101498c90)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x1002bbf98)) called at /export/home/fly1464/var/megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x101364ad0), "sqitch", App::Sqitch=HASH(0x1002bbf98)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002bbf98)) called at (eval 205) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x1002bbf98)) called at t/tag_cmd.t line 57 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 207) line 43. # at (eval 207) line 43. # eval '{ # my $default_for__5fchanges = ${$_[1]->{"\\$default_for__5fchanges"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_changes { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_changes is a read-only accessor" if @_ > 1; # exists $_[0]->{"_changes"} ? # $_[0]->{"_changes"} # : do { # my $value = $default_for__5fchanges->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_changes", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC4($_[0])) ? $_[0] : Type::Tiny::_failed_check(41, "ChangeList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_changes\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_changes"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_changes # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x101845ca8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014aa9b8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014aa9b8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 778 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101840670), "name", "foo") called at t/tag_cmd.t line 58 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 210) line 298, line 1. # at (eval 210) line 298, line 1. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Pragma::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Pragma") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Pragma::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"hspace"} # ? $args->{"hspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "hspace", # name => "hspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"hspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"hspace"} = $value; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"value"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "value", # name => "value", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"value"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"value\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"value"} = $args->{"value"}; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Pragma::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1018811e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10197d318)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x10157fb98)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x101840670), "operator", "=", "lopspace", "", "hspace", "", ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101840670), Path::Class::File=HASH(0x101697358), IO::File=GLOB(0x101635ea0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101840670)) called at (eval 208) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101840670)) called at (eval 207) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 778 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101840670), "name", "foo") called at t/tag_cmd.t line 58 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 211) line 262, line 2. # at (eval 211) line 262, line 2. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Blank::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Blank") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Blank::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # { # my $value = ( # exists $args->{"name"} # ? $args->{"name"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $value; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Blank::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x1019729d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10197d150)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101518b68)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x101840670), "lspace", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x101840670), Path::Class::File=HASH(0x101697358), IO::File=GLOB(0x101635ea0)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x101840670)) called at (eval 208) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x101840670)) called at (eval 207) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 778 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101840670), "name", "foo") called at t/tag_cmd.t line 58 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 213) line 597, line 3. # at (eval 213) line 597, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x10195c980)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10194b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542198)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101840670), "name", "foo") called at t/tag_cmd.t line 58 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 213) line 633, line 3. # at (eval 213) line 633, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x10195c980)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10194b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542198)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101840670), "name", "foo") called at t/tag_cmd.t line 58 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 213) line 906, line 3. # at (eval 213) line 906, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5frequires = ${$_[1]->{"\\$default_for__5frequires"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for__5fconflicts = ${$_[1]->{"\\$default_for__5fconflicts"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Change::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Change") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Change::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # { # my $value = ( # exists $args->{"conflicts"} # ? $args->{"conflicts"} # : $default_for__5fconflicts->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "conflicts", # name => "_conflicts", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_conflicts\\" (constructor argument: \\"conflicts\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_conflicts"} = $value; # } # if (exists $args->{"_path_segments"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_path_segments", # name => "_path_segments", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_path_segments"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC16($_[0])) ? $_[0] : Type::Tiny::_failed_check(60, "ArrayRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_path_segments\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_path_segments"} = $args->{"_path_segments"}; # } # { # my $value = ( # exists $args->{"requires"} # ? $args->{"requires"} # : $default_for__5frequires->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "requires", # name => "_requires", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC14($_[0])) ? $_[0] : Type::Tiny::_failed_check(58, "ArrayRef[Depend]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_requires\\" (constructor argument: \\"requires\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_requires"} = $value; # } # if (exists $args->{"rework_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rework_tags", # name => "_rework_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"rework_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_rework_tags\\" (constructor argument: \\"rework_tags\\") failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_rework_tags"} = $args->{"rework_tags"}; # } # if (exists $args->{"_tags"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_tags", # name => "_tags", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_tags"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC15($_[0])) ? $_[0] : Type::Tiny::_failed_check(59, "ArrayRef[Tag]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_tags\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_tags"} = $args->{"_tags"}; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"parent"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "parent", # name => "parent", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"parent"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"parent\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"parent"} = $args->{"parent"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"pspace"} # ? $args->{"pspace"} # : " " # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pspace", # name => "pspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pspace"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # if (exists $args->{"since_tag"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "since_tag", # name => "since_tag", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"since_tag"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC6($_[0])) ? $_[0] : Type::Tiny::_failed_check(43, "Tag", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"since_tag\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"since_tag"} = $args->{"since_tag"}; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Change::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x10195c980)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10194b5a0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101542198)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101840670), "name", "foo") called at t/tag_cmd.t line 58 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 217) line 43, line 3. # at (eval 217) line 43, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_sysuser = ${$_[1]->{"\\$default_for_sysuser"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::sysuser { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "sysuser is a read-only accessor" if @_ > 1; # exists $_[0]->{"sysuser"} ? # $_[0]->{"sysuser"} # : do { # my $value = $default_for_sysuser->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"sysuser"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::sysuser # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x1019335b0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1016a20e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1016a20e8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x1002bbf98)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x1002bbf98)) called at (eval 216) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x1002bbf98)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x101945048)) called at (eval 213) line 649 # App::Sqitch::Plan::Change::new(undef, "name", "foo", "plan", App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101840670), "name", "foo") called at t/tag_cmd.t line 58 # # ---------- # Previous test 4 'Should have note option' # Useless use of array element in void context at (eval 239) line 43, line 3. # at (eval 239) line 43, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5flines = ${$_[1]->{"\\$default_for__5flines"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::_lines { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "_lines is a read-only accessor" if @_ > 1; # exists $_[0]->{"_lines"} ? # $_[0]->{"_lines"} # : do { # my $value = $default_for__5flines->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "_lines", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC5($_[0])) ? $_[0] : Type::Tiny::_failed_check(42, "LineList", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_lines\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"_lines"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Plan::_lines # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101999df0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1014aa6e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014aa6e8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x101840670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 809 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x101840670), "name", "foo") called at t/tag_cmd.t line 58 # # ---------- # Previous test 5 'Add change "foo"' # Useless use of array element in void context at (eval 240) line 61, line 3. # at (eval 240) line 61, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101fc12e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101fc9af0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d3ad0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "change", undef, "name", "alpha", "note", "", "plan", App::Sqitch::Plan=HASH(0x101840670), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 730 # App::Sqitch::Plan::tag(App::Sqitch::Plan=HASH(0x101840670), "name", "alpha", "change", undef, "note", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/tag.pm line 37 # App::Sqitch::Command::tag::execute(App::Sqitch::Command::tag=HASH(0x1016aca58), "alpha") called at t/tag_cmd.t line 60 # # ---------- # Previous test 5 'Add change "foo"' # Useless use of array element in void context at (eval 240) line 441, line 3. # at (eval 240) line 441, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101fc12e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101fc9af0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d3ad0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "change", undef, "name", "alpha", "note", "", "plan", App::Sqitch::Plan=HASH(0x101840670), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 730 # App::Sqitch::Plan::tag(App::Sqitch::Plan=HASH(0x101840670), "name", "alpha", "change", undef, "note", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/tag.pm line 37 # App::Sqitch::Command::tag::execute(App::Sqitch::Command::tag=HASH(0x1016aca58), "alpha") called at t/tag_cmd.t line 60 # # ---------- # Previous test 5 'Add change "foo"' # Useless use of array element in void context at (eval 240) line 637, line 3. # at (eval 240) line 637, line 3. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $isa_check_for_planner_5femail = ${$_[1]->{"\\$isa_check_for_planner_5femail"}}; # my $default_for_planner_5femail = ${$_[1]->{"\\$default_for_planner_5femail"}}; # my $default_for_planner_5fname = ${$_[1]->{"\\$default_for_planner_5fname"}}; # my $default_for_timestamp = ${$_[1]->{"\\$default_for_timestamp"}}; # no warnings \'closure\'; # sub App::Sqitch::Plan::Tag::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Plan::Tag") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Plan::Tag::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args = $class->BUILDARGS(@_); # die "BUILDARGS did not return a hashref" unless ref($args) eq \'HASH\'; # if (my @missing = grep !exists $args->{$_}, qw(change name plan)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"change"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "change", # name => "change", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"change"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC3($_[0])) ? $_[0] : Type::Tiny::_failed_check(40, "Change", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"change\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"change"} = $args->{"change"}); no warnings \'void\'; $new->{"change"} }; # } # if (exists $args->{"id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "id", # name => "id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"id"} = $args->{"id"}; # } # if (exists $args->{"info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "info", # name => "info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"info"} = $args->{"info"}; # } # { # my $value = ( # exists $args->{"lopspace"} # ? $args->{"lopspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lopspace", # name => "lopspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lopspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lopspace"} = $value; # } # { # my $value = ( # exists $args->{"lspace"} # ? $args->{"lspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "lspace", # name => "lspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"lspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"lspace"} = $value; # } # if (exists $args->{"name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "name", # name => "name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"name"} = $args->{"name"}; # } # { # my $value = ( # exists $args->{"note"} # ? $args->{"note"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "note", # name => "note", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"note\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"note"} = $value; # } # if (exists $args->{"old_id"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_id", # name => "old_id", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_id"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_id\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_id"} = $args->{"old_id"}; # } # if (exists $args->{"old_info"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "old_info", # name => "old_info", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"old_info"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"old_info\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"old_info"} = $args->{"old_info"}; # } # { # my $value = ( # exists $args->{"operator"} # ? $args->{"operator"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "operator", # name => "operator", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"operator\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"operator"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # do { Scalar::Util::weaken($new->{"plan"} = $args->{"plan"}); no warnings \'void\'; $new->{"plan"} }; # } # { # my $value = ( # exists $args->{"planner_email"} # ? $args->{"planner_email"} # : $default_for_planner_5femail->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_email", # name => "planner_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_planner_5femail->($value); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_email"} = $value; # } # { # my $value = ( # exists $args->{"planner_name"} # ? $args->{"planner_name"} # : $default_for_planner_5fname->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "planner_name", # name => "planner_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"planner_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"planner_name"} = $value; # } # { # my $value = ( # exists $args->{"ropspace"} # ? $args->{"ropspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "ropspace", # name => "ropspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"ropspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"ropspace"} = $value; # } # { # my $value = ( # exists $args->{"rspace"} # ? $args->{"rspace"} # : "" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "rspace", # name => "rspace", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"rspace\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"rspace"} = $value; # } # { # my $value = ( # exists $args->{"timestamp"} # ? $args->{"timestamp"} # : $default_for_timestamp->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "timestamp", # name => "timestamp", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC8($_[0])) ? $_[0] : Type::Tiny::_failed_check(45, "DateTime", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"timestamp\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"timestamp"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Plan::Tag::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x101fc12e8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101fc9af0)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1014d3ad0)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "change", undef, "name", "alpha", "note", "", "plan", App::Sqitch::Plan=HASH(0x101840670), ...) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Plan.pm line 730 # App::Sqitch::Plan::tag(App::Sqitch::Plan=HASH(0x101840670), "name", "alpha", "change", undef, "note", "") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/tag.pm line 37 # App::Sqitch::Command::tag::execute(App::Sqitch::Command::tag=HASH(0x1016aca58), "alpha") called at t/tag_cmd.t line 60 # # Looks like you failed 1 test of 39. t/tag_cmd.t ......... 1..39 ok 1 - Load a sqitch sqitch object ok 2 - 'tag command' isa 'App::Sqitch::Command::tag' ok 3 - App::Sqitch::Command::tag->can(...) ok 4 - Should have note option ok 5 - Add change "foo" ok 6 - Tag @alpha ok 7 - Should have tagged "foo" ok 8 - Reload plan ok 9 - New tag should have been written ok 10 - New tag should have empty note ok 11 - Should have requested a note ok 12 - The info message should be correct ok 13 - Execute with no arg ok 14 - The one tag should have been listed ok 15 - Should have requested a note ok 16 - Add tag @beta ok 17 - Execute with no arg again ok 18 - Both tags should have been listed ok 19 - Should have requested a note ok 20 - 'tag command with note' isa 'App::Sqitch::Command::tag' ok 21 - Tag @gamma ok 22 - Gamma tag should be on change "foo" ok 23 - Gamma tag should have note ok 24 - Reload plan ok 25 - Gamma tag should have been written ok 26 - Written tag should have note ok 27 - Should have requested a note ok 28 - The gamma note should be correct ok 29 - 'tag command with note' isa 'App::Sqitch::Command::tag' ok 30 - Add change "bar" ok 31 - Add change "baz" ok 32 - Tag change "bar" with @delta ok 33 - Should have tagged "bar" ok 34 - Reload plan ok 35 - New tag should have been written ok 36 - New tag should have the proper note ok 37 - Should have requested a note ok 38 - The info message should be correct not ok 39 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/39 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at /export/home/fly1464/var/megalib/Test/NoWarnings.pm line 45. # There were 9 warning(s) # Previous test 0 '' # Useless use of array element in void context at (eval 195) line 77. # at (eval 195) line 77. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10177b128)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/target.t line 40 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 195) line 438. # at (eval 195) line 438. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10177b128)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/target.t line 40 # # ---------- # Previous test 0 '' # Useless use of array element in void context at (eval 195) line 515. # at (eval 195) line 515. # eval '{ # my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; # my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; # my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; # my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; # my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; # my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; # my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; # my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; # no warnings \'closure\'; # sub App::Sqitch::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # my $new = bless({}, $class);; # if (exists $args->{"_engine"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_engine", # name => "_engine", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_engine\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_engine"} = $args->{"_engine"}; # } # $new->{"_was_set"} = ( # exists $args->{"_was_set"} # ? $args->{"_was_set"} # : $default_for__5fwas_5fset->($new) # ); # if (exists $args->{"config"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "config", # name => "config", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"config\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"config"} = $args->{"config"}; # } # if (exists $args->{"db_client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_client", # name => "db_client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_client"} = $args->{"db_client"}; # } # if (exists $args->{"db_host"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_host", # name => "db_host", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_host\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_host"} = $args->{"db_host"}; # } # if (exists $args->{"db_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_name", # name => "db_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_name"} = $args->{"db_name"}; # } # if (exists $args->{"db_port"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_port", # name => "db_port", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_port\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_port"} = $args->{"db_port"}; # } # if (exists $args->{"db_username"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "db_username", # name => "db_username", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"db_username\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"db_username"} = $args->{"db_username"}; # } # if (exists $args->{"deploy_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "deploy_dir", # name => "deploy_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"deploy_dir"} = $args->{"deploy_dir"}; # $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); # } # if (exists $args->{"editor"}) { # $new->{"editor"} = $args->{"editor"}; # } # if (exists $args->{"extension"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "extension", # name => "extension", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"extension\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"extension"} = $args->{"extension"}; # $trigger_for_extension->($new, $new->{"extension"}); # } # if (exists $args->{"pager"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "pager", # name => "pager", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_pager->($args->{"pager"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"pager\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"pager"} = $args->{"pager"}; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # if (exists $args->{"plan_file"}) { # $new->{"plan_file"} = $args->{"plan_file"}; # $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); # } # if (exists $args->{"revert_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "revert_dir", # name => "revert_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"revert_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"revert_dir"} = $args->{"revert_dir"}; # $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); # } # if (exists $args->{"sysuser"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sysuser", # name => "sysuser", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sysuser\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sysuser"} = $args->{"sysuser"}; # } # if (exists $args->{"top_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "top_dir", # name => "top_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"top_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"top_dir"} = $args->{"top_dir"}; # $trigger_for_top_5fdir->($new, $new->{"top_dir"}); # } # if (exists $args->{"user_email"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_email", # name => "user_email", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5femail->($args->{"user_email"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_email\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_email"} = $args->{"user_email"}; # } # if (exists $args->{"user_name"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "user_name", # name => "user_name", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_user_5fname->($args->{"user_name"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"user_name\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"user_name"} = $args->{"user_name"}; # } # if (exists $args->{"verbosity"}) { # $new->{"verbosity"} = $args->{"verbosity"}; # } # if (exists $args->{"verify_dir"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verify_dir", # name => "verify_dir", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verify_dir\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verify_dir"} = $args->{"verify_dir"}; # $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010540d8)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x10177b128)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x100454be8)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch") called at t/target.t line 40 # # ---------- # Previous test 1 'Load a sqitch sqitch object' # Useless use of array element in void context at (eval 202) line 142. # at (eval 202) line 142. # eval '{ # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Command::target::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Command::target") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Command::target::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # { # my $value = ( # exists $args->{"verbose"} # ? $args->{"verbose"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "verbose", # name => "verbose", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"verbose\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"verbose"} = $value; # } # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Command::target::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x1002bc2e0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x1017f4490)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101869008)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::target::new("App::Sqitch::Command::target", HASH(0x1013a5690)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x1016ad8b0)) called at t/target.t line 42 # # ---------- # Previous test 86 'Show with no names should emit the list of targets' # Useless use of array element in void context at (eval 256) line 189. # at (eval 256) line 189. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019480f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101bab018)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101a65a20)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x1019f6b10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x1019f6b10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x10175bc80), HASH(0x101a15670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 136 # App::Sqitch::engine_for_target(App::Sqitch=HASH(0x10175bc80), "dev") called at (eval 247) line 17 # App::Sqitch::Command::engine_for_target(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/target.pm line 205 # App::Sqitch::Command::target::show(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at t/target.t line 307 # # ---------- # Previous test 86 'Show with no names should emit the list of targets' # Useless use of array element in void context at (eval 256) line 379. # at (eval 256) line 379. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019480f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101bab018)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101a65a20)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x1019f6b10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x1019f6b10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x10175bc80), HASH(0x101a15670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 136 # App::Sqitch::engine_for_target(App::Sqitch=HASH(0x10175bc80), "dev") called at (eval 247) line 17 # App::Sqitch::Command::engine_for_target(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/target.pm line 205 # App::Sqitch::Command::target::show(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at t/target.t line 307 # # ---------- # Previous test 86 'Show with no names should emit the list of targets' # Useless use of array element in void context at (eval 256) line 456. # at (eval 256) line 456. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019480f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101bab018)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101a65a20)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x1019f6b10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x1019f6b10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x10175bc80), HASH(0x101a15670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 136 # App::Sqitch::engine_for_target(App::Sqitch=HASH(0x10175bc80), "dev") called at (eval 247) line 17 # App::Sqitch::Command::engine_for_target(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/target.pm line 205 # App::Sqitch::Command::target::show(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at t/target.t line 307 # # ---------- # Previous test 86 'Show with no names should emit the list of targets' # Useless use of array element in void context at (eval 256) line 492. # at (eval 256) line 492. # eval '{ # my $isa_check_for_uri = ${$_[1]->{"\\$isa_check_for_uri"}}; # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for__5fvariables = ${$_[1]->{"\\$default_for__5fvariables"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # my $trigger_for_target = ${$_[1]->{"\\$trigger_for_target"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::pg::new { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Constructor; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # my $class = shift; # $class = ref($class) if ref($class); # if ($class ne "App::Sqitch::Engine::pg") { # if ($Moo::MAKERS{$class}) { # if ($Moo::MAKERS{$class}{constructor}) { # return $class->App::Sqitch::Engine::pg::SUPER::new(@_); # } # Moo->_constructor_maker_for($class); # return $class->new(@_); # } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { # return $meta->new_object($class->BUILDARGS(@_)); # } # } # my $args; # if ( scalar @_ == 1 ) { # unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { # die "Single parameters to new() must be a HASH ref" # ." data => ". $_[0] ."\\n"; # } # $args = { %{ $_[0] } }; # } # elsif ( @_ % 2 ) { # die "The new() method for $class expects a hash reference or a" # . " key/value list. You passed an odd number of arguments\\n"; # } # else { # $args = {@_}; # } # if (my @missing = grep !exists $args->{$_}, qw(sqitch)) { # die "Missing required arguments: ".join(\', \', sort @missing); # } # my $new = bless({}, $class);; # if (exists $args->{"_psql"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_psql", # name => "_psql", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"_psql"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (ref($_[0]) eq \'ARRAY\') ? $_[0] : Type::Tiny::_failed_check(19, "ArrayRef", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_psql\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_psql"} = $args->{"_psql"}; # } # if (exists $args->{"_target_set"}) { # $new->{"_target_set"} = $args->{"_target_set"}; # } # { # my $value = ( # exists $args->{"_variables"} # ? $args->{"_variables"} # : $default_for__5fvariables->($new) # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "_variables", # name => "_variables", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC17($_[0])) ? $_[0] : Type::Tiny::_failed_check(64, "HashRef[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"_variables\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"_variables"} = $value; # } # if (exists $args->{"client"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "client", # name => "client", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"client"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"client\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"client"} = $args->{"client"}; # } # if (exists $args->{"dbh"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "dbh", # name => "dbh", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"dbh"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC13($_[0])) ? $_[0] : Type::Tiny::_failed_check(50, "DBH", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"dbh\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"dbh"} = $args->{"dbh"}; # } # if (exists $args->{"destination"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "destination", # name => "destination", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"destination"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"destination\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"destination"} = $args->{"destination"}; # } # { # my $value = ( # exists $args->{"log_only"} # ? $args->{"log_only"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "log_only", # name => "log_only", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"log_only\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"log_only"} = $value; # } # if (exists $args->{"max_name_length"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "max_name_length", # name => "max_name_length", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"max_name_length"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"max_name_length\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"max_name_length"} = $args->{"max_name_length"}; # } # { # my $value = ( # exists $args->{"no_prompt"} # ? $args->{"no_prompt"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "no_prompt", # name => "no_prompt", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"no_prompt\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"no_prompt"} = $value; # } # if (exists $args->{"plan"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "plan", # name => "plan", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"plan\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"plan"} = $args->{"plan"}; # } # { # my $value = ( # exists $args->{"prompt_accept"} # ? $args->{"prompt_accept"} # : "1" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "prompt_accept", # name => "prompt_accept", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"prompt_accept\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"prompt_accept"} = $value; # } # if (exists $args->{"registry"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "registry", # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"registry"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"registry"} = $args->{"registry"}; # } # if (exists $args->{"sqitch"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "sqitch", # name => "sqitch", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"sqitch"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC1($_[0])) ? $_[0] : Type::Tiny::_failed_check(38, "Sqitch", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"sqitch\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"sqitch"} = $args->{"sqitch"}; # } # if (exists $args->{"start_at"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "start_at", # name => "start_at", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"start_at"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"start_at\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"start_at"} = $args->{"start_at"}; # } # if (exists $args->{"target"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "target", # name => "target", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($args->{"target"}); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"target\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"target"} = $args->{"target"}; # $trigger_for_target->($new, $new->{"target"}); # } # if (exists $args->{"uri"}) { # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "uri", # name => "uri", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # $isa_check_for_uri->($args->{"uri"}); # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"uri\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"uri"} = $args->{"uri"}; # } # { # my $value = ( # exists $args->{"with_verify"} # ? $args->{"with_verify"} # : "0" # ); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => "with_verify", # name => "with_verify", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::Bool($_[0])) ? $_[0] : Type::Tiny::_failed_check(3, "Bool", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"with_verify\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $new->{"with_verify"} = $value; # } # $new->App::Sqitch::Engine::BUILD($args); # return $new; # } # $$_UNQUOTED = \\&App::Sqitch::Engine::pg::new # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x1019480f0)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101bab018)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101a65a20)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x1019f6b10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x1019f6b10)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x10175bc80), HASH(0x101a15670)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch.pm line 136 # App::Sqitch::engine_for_target(App::Sqitch=HASH(0x10175bc80), "dev") called at (eval 247) line 17 # App::Sqitch::Command::engine_for_target(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/target.pm line 205 # App::Sqitch::Command::target::show(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at t/target.t line 307 # # ---------- # Previous test 86 'Show with no names should emit the list of targets' # Useless use of array element in void context at (eval 259) line 43. # at (eval 259) line 43. # eval '{ # my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; # my $default_for_registry = ${$_[1]->{"\\$default_for_registry"}}; # my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; # no warnings \'closure\'; # sub App::Sqitch::Engine::registry { # $_QUOTED if 0; # $_UNQUOTED if 0; # # BEGIN quote_sub PRELUDE # package Method::Generate::Accessor; # BEGIN { # $^H = "1538"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # die "registry is a read-only accessor" if @_ > 1; # exists $_[0]->{"registry"} ? # $_[0]->{"registry"} # : do { # my $value = $default_for_registry->($_[0]); # do { # local $Method::Generate::Accessor::CurrentAttribute = { # init_arg => undef(), # name => "registry", # step => "isa check", # }; # my $_error; # { # my $_old_error = $@; # if (!eval { # $@ = $_old_error; # do { local @_ = ($value); # BEGIN quote_sub PRELUDE # package Type::Tiny; # BEGIN { # $^H = "1794"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; # 1; # }) { # $_error = $@; # if (!ref $_error) { # $_error = "isa check for \\"registry\\" failed: ".$_error; # } # } # $@ = $_old_error; # } # die $_error if $_error; # } # ; # $_[0]->{"registry"} = $value # } # } # $$_UNQUOTED = \\&App::Sqitch::Engine::registry # } # 1; # # ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x101dc7160)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x101b4a868)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x101b4a868)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::registry(App::Sqitch::Engine::pg=HASH(0x1019f6b40)) called at /data1/fly1464-var/cpan/build/App-Sqitch-0.996-AG8IFO/blib/lib/App/Sqitch/Command/target.pm line 208 # App::Sqitch::Command::target::show(App::Sqitch::Command::target=HASH(0x101a1a098), "dev") called at t/target.t line 307 # # Looks like you failed 1 test of 142. t/target.t .......... 1..142 ok 1 - Load a sqitch sqitch object ok 2 - 'Target command' isa 'App::Sqitch::Command::target' ok 3 - App::Sqitch::Command::target->can(...) ok 4 - Options should be correct ok 5 - Default verbosity should be 0 ok 6 - Default registry should be undef ok 7 - Default client should be undef ok 8 - configure() should ignore config file ok 9 - Run list() ok 10 - The list of targets should have been output ok 11 - 'Verbose target' isa 'App::Sqitch::Command::target' ok 12 - Run verbose list() ok 13 - The list of targets and their URIs should have been output ok 14 - No name arg to add() should yield usage ok 15 - No args should be passed to usage ok 16 - No URI arg to add() should yield usage ok 17 - No args should be passed to usage ok 18 - Should get error for existing target ok 19 - Existing target error ident should be "target" ok 20 - Existing target error message should be correct ok 21 - Add target "test" ok 22 - Target "test" URI should have been set ok 23 - Target "test" should have no registry set ok 24 - Target "test" should have no client set ok 25 - 'Target with registry' isa 'App::Sqitch::Command::target' ok 26 - Add target "withreg" ok 27 - Target "withreg" URI should have been set ok 28 - Target "withreg" registry should have been set ok 29 - 'Target with client' isa 'App::Sqitch::Command::target' ok 30 - Add target "withcli" ok 31 - Target "withcli" URI should have been set ok 32 - Target "withcli" registry should not have been set ok 33 - Target "withcli" should have client set ok 34 - 'Target with client and registry' isa 'App::Sqitch::Command::target' ok 35 - Add target "withboth" ok 36 - Target "withboth" URI should have been set ok 37 - Target "withboth" registry should not been set ok 38 - Target "withboth" should have client set ok 39 - No name arg to set_uri() should yield usage ok 40 - No args should be passed to usage ok 41 - No URI arg to set_uri() should yield usage ok 42 - No args should be passed to usage ok 43 - Should get error for nonexistent target ok 44 - Nonexistent target error ident should be "target" ok 45 - Nonexistent target error message should be correct ok 46 - Set new URI ok 47 - Target "withboth" should have new URI ok 48 - Set new URI ok 49 - Target "withboth" should have new DB URI ok 50 - No name arg to set_registry() should yield usage ok 51 - No args should be passed to usage ok 52 - No registry arg to set_registry() should yield usage ok 53 - No args should be passed to usage ok 54 - Should get error for nonexistent target ok 55 - Nonexistent target error ident should be "target" ok 56 - Nonexistent target error message should be correct ok 57 - Set new $key ok 58 - Target "withboth" should have new registry ok 59 - No name arg to set_client() should yield usage ok 60 - No args should be passed to usage ok 61 - No client arg to set_client() should yield usage ok 62 - No args should be passed to usage ok 63 - Should get error for nonexistent target ok 64 - Nonexistent target error ident should be "target" ok 65 - Nonexistent target error message should be correct ok 66 - Set new $key ok 67 - Target "withboth" should have new client ok 68 - No name args to rename() should yield usage ok 69 - No args should be passed to usage ok 70 - No second arg to rename() should yield usage ok 71 - No args should be passed to usage ok 72 - Should get error for nonexistent target ok 73 - Nonexistent target error ident should be "target" ok 74 - Nonexistent target error message should be correct ok 75 - Rename ok 76 - Target "àlafois" should now be present ok 77 - Target "withboth" should no longer be present ok 78 - No name args to remove() should yield usage ok 79 - No args should be passed to usage ok 80 - Should get error for nonexistent target ok 81 - Nonexistent target error ident should be "target" ok 82 - Nonexistent target error message should be correct ok 83 - Remove ok 84 - Target "àlafois" should now be gone ok 85 - Run show() ok 86 - Show with no names should emit the list of targets ok 87 - Show dev ok 88 - The "dev" target should have been shown ok 89 - Show withcli ok 90 - The "with_cli" target should have been shown ok 91 - Show withreg ok 92 - The "with_reg" target should have been shown ok 93 - Show three targets ok 94 - All three targets should have been shown ok 95 - 'Simple target' isa 'App::Sqitch::Command::target' ok 96 - Execute undef ok 97 - list() should have been called ok 98 - Execute undef with args ok 99 - list() should have been passed args ok 100 - Execute list ok 101 - list() should have been called ok 102 - Execute list with args ok 103 - list() should have been passed args ok 104 - Execute add ok 105 - add() should have been called ok 106 - Execute add with args ok 107 - add() should have been passed args ok 108 - Execute set-uri ok 109 - set_uri() should have been called ok 110 - Execute set-uri with args ok 111 - set_uri() should have been passed args ok 112 - Execute set-url ok 113 - set_uri() should have been called ok 114 - Execute set-url with args ok 115 - set_uri() should have been passed args ok 116 - Execute set-registry ok 117 - set_registry() should have been called ok 118 - Execute set-registry with args ok 119 - set_registry() should have been passed args ok 120 - Execute set-client ok 121 - set_client() should have been called ok 122 - Execute set-client with args ok 123 - set_client() should have been passed args ok 124 - Execute remove ok 125 - remove() should have been called ok 126 - Execute remove with args ok 127 - remove() should have been passed args ok 128 - Execute rm ok 129 - remove() should have been called ok 130 - Execute rm with args ok 131 - remove() should have been passed args ok 132 - Execute rename ok 133 - rename() should have been called ok 134 - Execute rename with args ok 135 - rename() should have been passed args ok 136 - Execute show ok 137 - show() should have been called ok 138 - Execute show with args ok 139 - show() should have been passed args ok 140 - Should get an exception for a nonexistent action ok 141 - Nonexistent action message should be passed to usage not ok 142 - no warnings Dubious, test returned 1 (wstat 256, 0x100) Failed 1/142 subtests Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Useless use of array element in void context at (eval 196) line 77. Useless use of array element in void context at (eval 196) line 438. Useless use of array element in void context at (eval 196) line 515. Useless use of array element in void context at (eval 202) line 106. Useless use of array element in void context at (eval 214) line 43. Useless use of array element in void context at (eval 215) line 71. Useless use of array element in void context at (eval 215) line 107. Useless use of array element in void context at (eval 215) line 256. Useless use of array element in void context at (eval 219) line 379. Useless use of array element in void context at (eval 219) line 456. Useless use of array element in void context at (eval 219) line 528. Useless use of array element in void context at (eval 227) line 298, line 1. Useless use of array element in void context at (eval 228) line 262, line 2. Useless use of array element in void context at (eval 239) line 597, line 3. Useless use of array element in void context at (eval 239) line 633, line 3. Useless use of array element in void context at (eval 239) line 906, line 3. Useless use of hash element in void context at (eval 239) line 646, line 3. Useless use of array element in void context at (eval 240) line 61, line 5. Useless use of array element in void context at (eval 240) line 441, line 5. Useless use of array element in void context at (eval 240) line 637, line 5. Useless use of array element in void context at (eval 242) line 43. t/verify.t .......... ok 1 - require App::Sqitch::Command::verify; ok 2 - The class (or class-like) 'App::Sqitch::Command::verify' isa 'App::Sqitch::Command' ok 3 - App::Sqitch::Command::verify->can(...) ok 4 - Options should be correct ok 5 - Should have default configuration with no config or opts ok 6 - Should have changes and variables from options ok 7 - Should have no config if no options ok 8 - Should have merged variables ok 9 - An object of class 'App::Sqitch::Command::verify' isa 'App::Sqitch::Command::verify' ok 10 - Should pick up variables from configuration ok 11 - 'new status with target' isa 'App::Sqitch::Command::verify' ok 12 - Should have target "foo" ok 13 - An object of class 'App::Sqitch::Command::verify' isa 'App::Sqitch::Command::verify' ok 14 - Default target should be undef ok 15 - from_change should be undef ok 16 - to_change should be undef ok 17 - Execute with nothing. ok 18 - Two undefs should be passed to the engine ok 19 - Should have no warnings ok 20 - Execute from "@alpha" ok 21 - "@alpha" and undef should be passed to the engine ok 22 - Should again have no warnings ok 23 - Execute from "@alpha" to "@beta" ok 24 - "@alpha" and "@beat" should be passed to the engine ok 25 - Should still have no warnings ok 26 - 'Object with from, to, and variables' isa 'App::Sqitch::Command::verify' ok 27 - Execute again ok 28 - "foo" and "bar" should be passed to the engine ok 29 - Vars should have been passed through to the engine ok 30 - Still should have no warnings ok 31 - Execute with command-line args ok 32 - "foo" and "bar" should be passed to the engine ok 33 - Vars should have been passed through to the engine ok 34 - Should have warning about which roles are used ok 35 - Execute with target arg ok 36 - The target should have been passed to the engine ok 37 - "foo" and "bar" should be passed to the engine ok 38 - Vars should have been passed through to the engine ok 39 - Should once again have no warnings ok 40 - 'Object with target' isa 'App::Sqitch::Command::verify' ok 41 - Execute with no args ok 42 - The target option should have been passed to the engine ok 43 - Undefs should be passed to the engine ok 44 - No vars should have been passed through to the engine ok 45 - Should once again have no warnings ok 46 - Execute with two targegs and two changes ok 47 - The target option should have been passed to the engine ok 48 - The two changes should be passed to the engine ok 49 - No vars should have been passed through to the engine ok 50 - Should have warning about too many targets ok 51 - Should get an exception for unknown arg ok 52 - Unknow arg ident should be "verify" ok 53 - Should get an exeption for two unknown arg ok 54 - Should get an exception for unknown args ok 55 - Unknow args ident should be "verify" ok 56 - Should get an exeption for two unknown args 1..56 ok Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at /export/home/fly1464/var/megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at /export/home/fly1464/var/megalib/Moo/Object.pm line 69. Eval went very, very wrong: { my $default_for__5fwas_5fset = ${$_[1]->{"\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\$trigger_for_deploy_5fdir"}}; no warnings 'closure'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq 'HASH' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"_engine\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"config\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_client\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_host\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\A-?[0-9]+\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_port\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"db_username\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"deploy_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"extension\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"pager\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"plan\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"revert_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"sysuser\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"top_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_email\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"user_name\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\000\000\000\000\000\000\000\000\000\000\000\000\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \"verify_dir\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \&App::Sqitch::new } 1; Useless use of array element in void context at (eval 212) line 77. at (eval 212) line 77. eval '{ my $default_for__5fwas_5fset = ${$_[1]->{"\\$default_for__5fwas_5fset"}}; my $trigger_for_revert_5fdir = ${$_[1]->{"\\$trigger_for_revert_5fdir"}}; my $isa_check_for_user_5fname = ${$_[1]->{"\\$isa_check_for_user_5fname"}}; my $_UNQUOTED = ${$_[1]->{"\\$_UNQUOTED"}}; my $trigger_for_extension = ${$_[1]->{"\\$trigger_for_extension"}}; my $trigger_for_verify_5fdir = ${$_[1]->{"\\$trigger_for_verify_5fdir"}}; my $_QUOTED = ${$_[1]->{"\\$_QUOTED"}}; my $isa_check_for_pager = ${$_[1]->{"\\$isa_check_for_pager"}}; my $trigger_for_plan_5ffile = ${$_[1]->{"\\$trigger_for_plan_5ffile"}}; my $trigger_for_top_5fdir = ${$_[1]->{"\\$trigger_for_top_5fdir"}}; my $isa_check_for_user_5femail = ${$_[1]->{"\\$isa_check_for_user_5femail"}}; my $trigger_for_deploy_5fdir = ${$_[1]->{"\\$trigger_for_deploy_5fdir"}}; no warnings \'closure\'; sub App::Sqitch::new { $_QUOTED if 0; $_UNQUOTED if 0; # BEGIN quote_sub PRELUDE package Method::Generate::Constructor; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE my $class = shift; $class = ref($class) if ref($class); if ($class ne "App::Sqitch") { if ($Moo::MAKERS{$class}) { if ($Moo::MAKERS{$class}{constructor}) { return $class->App::Sqitch::SUPER::new(@_); } Moo->_constructor_maker_for($class); return $class->new(@_); } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { return $meta->new_object($class->BUILDARGS(@_)); } } my $args; if ( scalar @_ == 1 ) { unless ( defined $_[0] && ref $_[0] eq \'HASH\' ) { die "Single parameters to new() must be a HASH ref" ." data => ". $_[0] ."\\n"; } $args = { %{ $_[0] } }; } elsif ( @_ % 2 ) { die "The new() method for $class expects a hash reference or a" . " key/value list. You passed an odd number of arguments\\n"; } else { $args = {@_}; } my $new = bless({}, $class);; if (exists $args->{"_engine"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "_engine", name => "_engine", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"_engine"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"_engine\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"_engine"} = $args->{"_engine"}; } $new->{"_was_set"} = ( exists $args->{"_was_set"} ? $args->{"_was_set"} : $default_for__5fwas_5fset->($new) ); if (exists $args->{"config"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "config", name => "config", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"config"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC10($_[0])) ? $_[0] : Type::Tiny::_failed_check(47, "Config", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"config\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"config"} = $args->{"config"}; } if (exists $args->{"db_client"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_client", name => "db_client", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_client"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_client\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_client"} = $args->{"db_client"}; } if (exists $args->{"db_host"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_host", name => "db_host", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_host"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_host\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_host"} = $args->{"db_host"}; } if (exists $args->{"db_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_name", name => "db_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_name"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_name"} = $args->{"db_name"}; } if (exists $args->{"db_port"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_port", name => "db_port", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_port"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (defined $_[0] and $_[0] =~ /\\A-?[0-9]+\\z/) ? $_[0] : Type::Tiny::_failed_check(11, "Int", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_port\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_port"} = $args->{"db_port"}; } if (exists $args->{"db_username"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "db_username", name => "db_username", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"db_username"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"db_username\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"db_username"} = $args->{"db_username"}; } if (exists $args->{"deploy_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "deploy_dir", name => "deploy_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"deploy_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"deploy_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"deploy_dir"} = $args->{"deploy_dir"}; $trigger_for_deploy_5fdir->($new, $new->{"deploy_dir"}); } if (exists $args->{"editor"}) { $new->{"editor"} = $args->{"editor"}; } if (exists $args->{"extension"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "extension", name => "extension", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"extension"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::Str($_[0])) ? $_[0] : Type::Tiny::_failed_check(7, "Str", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"extension\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"extension"} = $args->{"extension"}; $trigger_for_extension->($new, $new->{"extension"}); } if (exists $args->{"pager"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "pager", name => "pager", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_pager->($args->{"pager"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"pager\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"pager"} = $args->{"pager"}; } if (exists $args->{"plan"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "plan", name => "plan", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"plan"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::Tiny::_failed_check(39, "Plan", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"plan\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"plan"} = $args->{"plan"}; } if (exists $args->{"plan_file"}) { $new->{"plan_file"} = $args->{"plan_file"}; $trigger_for_plan_5ffile->($new, $new->{"plan_file"}); } if (exists $args->{"revert_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "revert_dir", name => "revert_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"revert_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"revert_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"revert_dir"} = $args->{"revert_dir"}; $trigger_for_revert_5fdir->($new, $new->{"revert_dir"}); } if (exists $args->{"sysuser"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "sysuser", name => "sysuser", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"sysuser"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "UUUUUUUUUUUUU"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::Str($_[0]))) ? $_[0] : Type::Tiny::_failed_check(57, "Maybe[Str]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"sysuser\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"sysuser"} = $args->{"sysuser"}; } if (exists $args->{"top_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "top_dir", name => "top_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"top_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (!defined($_[0]) or (Type::Tiny::XS::AUTO::TC12($_[0]))) ? $_[0] : Type::Tiny::_failed_check(62, "Maybe[Dir]", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"top_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"top_dir"} = $args->{"top_dir"}; $trigger_for_top_5fdir->($new, $new->{"top_dir"}); } if (exists $args->{"user_email"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_email", name => "user_email", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5femail->($args->{"user_email"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_email\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_email"} = $args->{"user_email"}; } if (exists $args->{"user_name"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "user_name", name => "user_name", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; $isa_check_for_user_5fname->($args->{"user_name"}); 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"user_name\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"user_name"} = $args->{"user_name"}; } if (exists $args->{"verbosity"}) { $new->{"verbosity"} = $args->{"verbosity"}; } if (exists $args->{"verify_dir"}) { do { local $Method::Generate::Accessor::CurrentAttribute = { init_arg => "verify_dir", name => "verify_dir", step => "isa check", }; my $_error; { my $_old_error = $@; if (!eval { $@ = $_old_error; do { local @_ = ($args->{"verify_dir"}); # BEGIN quote_sub PRELUDE package Type::Tiny; BEGIN { $^H = "1794"; ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; %^H = ( ); } # END quote_sub PRELUDE do { no warnings "void"; (Type::Tiny::XS::AUTO::TC12($_[0])) ? $_[0] : Type::Tiny::_failed_check(49, "Dir", $_[0]) }; }; 1; }) { $_error = $@; if (!ref $_error) { $_error = "isa check for \\"verify_dir\\" failed: ".$_error; } } $@ = $_old_error; } die $_error if $_error; } ; $new->{"verify_dir"} = $args->{"verify_dir"}; $trigger_for_verify_5fdir->($new, $new->{"verify_dir"}); } return $new; } $$_UNQUOTED = \\&App::Sqitch::new } 1; ;' called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 5 Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x1010f8c98)) called at /export/home/fly1464/var/megalib/Sub/Quote.pm line 157 Sub::Quote::unquote_sub(CODE(0x101bf4768)) called at /export/home/fly1464/var/megalib/Method/Generate/Constructor.pm line 78 Method::Generate::Constructor::__ANON__() called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 22 Sub::Defer::undefer_sub(CODE(0x1009bbc58)) called at /export/home/fly1464/var/megalib/Sub/Defer.pm line 55 App::Sqitch::new("App::Sqitch", "_engine", "vertica") called at t/vertica.t line 43 # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 255 just after 2. t/vertica.t ......... ok 1 - require App::Sqitch::Engine::vertica; ok 2 - config_vars should return three vars Dubious, test returned 255 (wstat 65280, 0xff00) All 2 subtests passed Subroutine IPC::Open3::xclose redefined at /export/home/fly1464/var/megalib/TAP/Parser/Iterator/Process.pm line 146. Subroutine Method::Generate::Constructor::new redefined at /export/home/fly1464/var/megalib/Moo/_Utils.pm line 84. t/x.t ............... ok 1 - require App::Sqitch::X; ok 2 - 'X object' isa 'App::Sqitch::X' ok 3 - X object does Throwable ok 4 - X object does StackTrace::Auto ok 5 - Create X without ident ok 6 - Default ident should be "DEV" ok 7 - threw App::Sqitch::X ok 8 - 'Thrown object' isa 'App::Sqitch::X' ok 9 - Ident should be "basic" ok 10 - The message should have been passed ok 11 - It should have a stack trace ok 12 - Exit val should be 2 ok 13 - The trace should start in this file ok 14 - threw App::Sqitch::X ok 15 - 'Thrown object' isa 'App::Sqitch::X' ok 16 - Ident should be "DEV" ok 17 - The message should have been passed ok 18 - Exit val should again be 2 ok 19 - Previous exception should have been passed ok 20 - threw App::Sqitch::X ok 21 - 'Thrown object' isa 'App::Sqitch::X' ok 22 - The params should have been passed ok 23 - Exit val should be 1 ok 24 - Stringification should work ok 25 - Stringification should work ok 26 - Should be an "io" exception ok 27 - Should catch error called via &goto 1..27 ok Test Summary Report ------------------- t/add.t (Wstat: 256 Tests: 163 Failed: 1) Failed test: 163 Non-zero exit status: 1 t/base.t (Wstat: 256 Tests: 242 Failed: 1) Failed test: 242 Non-zero exit status: 1 t/blank.t (Wstat: 256 Tests: 34 Failed: 1) Failed test: 34 Non-zero exit status: 1 t/bundle.t (Wstat: 256 Tests: 132 Failed: 1) Failed test: 132 Non-zero exit status: 1 t/change.t (Wstat: 256 Tests: 85 Failed: 1) Failed test: 85 Non-zero exit status: 1 t/changelist.t (Wstat: 256 Tests: 351 Failed: 1) Failed test: 351 Non-zero exit status: 1 t/command.t (Wstat: 256 Tests: 114 Failed: 1) Failed test: 114 Non-zero exit status: 1 t/config.t (Wstat: 256 Tests: 344 Failed: 1) Failed test: 344 Non-zero exit status: 1 t/configuration.t (Wstat: 256 Tests: 17 Failed: 1) Failed test: 17 Non-zero exit status: 1 t/datetime.t (Wstat: 256 Tests: 33 Failed: 1) Failed test: 33 Non-zero exit status: 1 t/engine.t (Wstat: 256 Tests: 598 Failed: 1) Failed test: 598 Non-zero exit status: 1 t/firebird.t (Wstat: 512 Tests: 2 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/help.t (Wstat: 256 Tests: 11 Failed: 1) Failed test: 11 Non-zero exit status: 1 t/init.t (Wstat: 256 Tests: 157 Failed: 1) Failed test: 157 Non-zero exit status: 1 t/item_formatter.t (Wstat: 256 Tests: 158 Failed: 1) Failed test: 158 Non-zero exit status: 1 t/linelist.t (Wstat: 256 Tests: 28 Failed: 1) Failed test: 28 Non-zero exit status: 1 t/log.t (Wstat: 256 Tests: 248 Failed: 1) Failed test: 248 Non-zero exit status: 1 t/mysql.t (Wstat: 65280 Tests: 2 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output t/oracle.t (Wstat: 65280 Tests: 2 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output t/pg.t (Wstat: 65280 Tests: 2 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output t/plan_command.t (Wstat: 256 Tests: 215 Failed: 1) Failed test: 215 Non-zero exit status: 1 t/pragma.t (Wstat: 256 Tests: 10 Failed: 1) Failed test: 10 Non-zero exit status: 1 t/rework.t (Wstat: 256 Tests: 95 Failed: 1) Failed test: 95 Non-zero exit status: 1 t/sqlite.t (Wstat: 65280 Tests: 2 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output t/status.t (Wstat: 256 Tests: 112 Failed: 1) Failed test: 112 Non-zero exit status: 1 t/tag.t (Wstat: 256 Tests: 27 Failed: 1) Failed test: 27 Non-zero exit status: 1 t/tag_cmd.t (Wstat: 256 Tests: 39 Failed: 1) Failed test: 39 Non-zero exit status: 1 t/target.t (Wstat: 256 Tests: 142 Failed: 1) Failed test: 142 Non-zero exit status: 1 t/vertica.t (Wstat: 65280 Tests: 2 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output Files=40, Tests=4993, 110 wallclock secs ( 2.10 usr 0.65 sys + 95.83 cusr 12.51 csys = 111.09 CPU) Result: FAIL Failed 29/40 test programs. 23/4993 subtests failed. DWHEELER/App-Sqitch-0.996.tar.gz ./Build test verbose=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports DWHEELER/App-Sqitch-0.996.tar.gz Finished 2014-09-06T07:17:39