PATH=C:\PlatSDK\Bin\Win64\x86\AMD64;C:\PlatSDK\Bin;C:\PlatSDK\Bin\WinNT;C:\cygwin\bin;C:\cpanfly-5.16\var\megalib\bin;C:\Perl64-5.16\site\bin;C:\Perl64-5.16\bin;C:\cygwin\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\system32\WindowsPowerShell\v1.0;C:\PROGRA~2\Perforce;C:\instantclient_11_2;C:\cygwin\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\system32\WindowsPowerShell\v1.0;C:\PROGRA~2\Perforce;C:\mysql\bin Start 2014-09-06T03:28:20 ActivePerl-1600 CPAN-2.00 LIB=C:\PlatSDK\Lib\AMD64;C:\PlatSDK\Lib\AMD64\atlmfc INCLUDE=C:\PlatSDK\Include;C:\PlatSDK\Include\crt;C:\PlatSDK\Include\crt\sys;C:\PlatSDK\Include\mfc;C:\PlatSDK\Include\atl PATH=C:/CPANFL~1.16/var/libs/bin;C:\PlatSDK\Bin\Win64\x86\AMD64;C:\PlatSDK\Bin;C:\PlatSDK\Bin\WinNT;C:\cygwin\bin;C:\CPANFL~1.16\var\megalib\bin;C:\Perl64-5.16\site\bin;C:\Perl64-5.16\bin;C:\cygwin\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\system32\WINDOW~1\v1.0;C:\PROGRA~2\Perforce;C:\INSTAN~1;C:\cygwin\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\system32\WINDOW~1\v1.0;C:\PROGRA~2\Perforce;C:\mysql\bin Reading 'C:\cpanfly-5.16\var\cpan\Metadata' Database was generated on Sat, 06 Sep 2014 08:53:29 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 C:\cpanfly-5.16\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 >>> C:\Perl64-5.16\bin\perl.exe Build.PL Created MYMETA.yml and MYMETA.json Creating new 'Build' script for 'App-Sqitch' version '0.996' >>> C:\Perl64-5.16\bin\perl.exe ./Build Building App-Sqitch Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. Wide character in print at C:/Perl64-5.16/lib/Pod/Html.pm line 435. DWHEELER/App-Sqitch-0.996.tar.gz C:\Perl64-5.16\bin\perl.exe ./Build -- OK Running Build test >>> C:\Perl64-5.16\bin\perl.exe ./Build test verbose=1 Subroutine Method::Generate::Constructor::new redefined at C:\cpanfly-5.16\var\megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at C:\cpanfly-5.16\var\megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at C:\cpanfly-5.16\var\megalib/Test/NoWarnings.pm line 45. # There were 25 warning(s) # Previous test 0 '' # 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7d470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3916bf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1d5eac0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x3916988), "_engine", "pg") called at t/add.t line 33 # # ---------- # Previous test 0 '' # 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7d470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3916bf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1d5eac0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x3916988), "_engine", "pg") called at t/add.t line 33 # # ---------- # Previous test 0 '' # 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7d470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3916bf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1d5eac0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x3916988), "_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 216) line 233. # at (eval 216) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_with_5fscripts = \${\$_[1]->{\"\\\$default_for"..., HASH(0x391a320)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e32828)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x39206b0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::add::new("App::Sqitch::Command::add", HASH(0x3e2c9f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x3702e68)) 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 276) line 43. # at (eval 276) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3e347a0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x36fdbc0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x36fdbc0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x3918540)) 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 277) line 71. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45b0428)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45ac5f8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x355bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3918540)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x31de6f8), "sqitch", App::Sqitch=HASH(0x3918540)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x3918540)) called at (eval 276) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x3918540)) 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 277) line 107. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45b0428)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45ac5f8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x355bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3918540)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x31de6f8), "sqitch", App::Sqitch=HASH(0x3918540)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x3918540)) called at (eval 276) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x3918540)) 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 277) line 256. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45b0428)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45ac5f8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x355bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3918540)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x31de6f8), "sqitch", App::Sqitch=HASH(0x3918540)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x3918540)) called at (eval 276) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x3918540)) 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 278) line 43. # at (eval 278) 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 = "1762"; # ${^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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x45ab8a0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x356aa78)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x356aa78)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x45ac508)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 584 # App::Sqitch::Plan::get(App::Sqitch::Plan=HASH(0x45ac508), "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 280) line 298, line 1. # at (eval 280) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x45a5720)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45a2c30)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35485d0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x45ac508), "operator", "=", "lopspace", "", "hspace", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x45ac508), Path::Class::File=HASH(0x36fbe88), IO::File=GLOB(0x356b740)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x45ac508)) called at (eval 279) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x45ac508)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x45ac508)) called at (eval 278) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x45ac508)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 584 # App::Sqitch::Plan::get(App::Sqitch::Plan=HASH(0x45ac508), "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 281) line 262, line 2. # at (eval 281) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x45a2138)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45a2978)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x34605b8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x45ac508), "lspace", "") called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x45ac508), Path::Class::File=HASH(0x36fbe88), IO::File=GLOB(0x356b740)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x45ac508)) called at (eval 279) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x45ac508)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x45ac508)) called at (eval 278) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x45ac508)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 584 # App::Sqitch::Plan::get(App::Sqitch::Plan=HASH(0x45ac508), "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 283) line 597, line 3. # at (eval 283) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x459da00)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45985d8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x353b518)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x4598788), "requires", ARRAY(0x4598740), "name", "widgets_table", "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "widgets_table", "requires", ARRAY(0x36fd9c8), "conflicts", ARRAY(0x40291f0), "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4025048), "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 283) line 633, line 3. # at (eval 283) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x459da00)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45985d8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x353b518)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x4598788), "requires", ARRAY(0x4598740), "name", "widgets_table", "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "widgets_table", "requires", ARRAY(0x36fd9c8), "conflicts", ARRAY(0x40291f0), "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4025048), "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 283) line 906, line 3. # at (eval 283) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x459da00)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45985d8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x353b518)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "conflicts", ARRAY(0x4598788), "requires", ARRAY(0x4598740), "name", "widgets_table", "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "widgets_table", "requires", ARRAY(0x36fd9c8), "conflicts", ARRAY(0x40291f0), "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4025048), "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 287) line 43, line 3. # at (eval 287) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x4597160)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x36ffdf0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x36ffdf0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x3918540)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x3918540)) called at (eval 286) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x3918540)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x4597a48)) called at (eval 283) line 649 # App::Sqitch::Plan::Change::new(undef, "conflicts", ARRAY(0x4598788), "requires", ARRAY(0x4598740), "name", "widgets_table", "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 792 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "widgets_table", "requires", ARRAY(0x36fd9c8), "conflicts", ARRAY(0x40291f0), "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4025048), "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 314) line 43. # at (eval 314) 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 = "1762"; # ${^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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x4237590)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x356a7a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x356a7a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x45ac508)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 809 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "widgets_table", "requires", ARRAY(0x36fd9c8), "conflicts", ARRAY(0x40291f0), "note", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4025048), "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 329) line 57. # at (eval 329) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x5036018)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b2bdf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\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(0x45ac508), "conflicts", 0, ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x45ac508), HASH(0x3566f18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "foo_table", "requires", ARRAY(0x4b28330), "conflicts", ARRAY(0x4b2b270), "note", "hello\x{a}\x{a}there", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4b2b390), "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 329) line 206. # at (eval 329) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x5036018)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b2bdf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\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(0x45ac508), "conflicts", 0, ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x45ac508), HASH(0x3566f18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "foo_table", "requires", ARRAY(0x4b28330), "conflicts", ARRAY(0x4b2b270), "note", "hello\x{a}\x{a}there", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4b2b390), "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 329) line 278. # at (eval 329) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x5036018)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b2bdf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\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(0x45ac508), "conflicts", 0, ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x45ac508), HASH(0x3566f18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "foo_table", "requires", ARRAY(0x4b28330), "conflicts", ARRAY(0x4b2b270), "note", "hello\x{a}\x{a}there", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4b2b390), "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 329) line 314. # at (eval 329) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x5036018)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b2bdf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\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(0x45ac508), "conflicts", 0, ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x45ac508), HASH(0x3566f18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "foo_table", "requires", ARRAY(0x4b28330), "conflicts", ARRAY(0x4b2b270), "note", "hello\x{a}\x{a}there", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4b2b390), "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 329) line 350. # at (eval 329) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x5036018)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b2bdf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\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(0x45ac508), "conflicts", 0, ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x45ac508), HASH(0x3566f18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "foo_table", "requires", ARRAY(0x4b28330), "conflicts", ARRAY(0x4b2b270), "note", "hello\x{a}\x{a}there", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4b2b390), "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 329) line 386. # at (eval 329) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x5036018)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b2bdf8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\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(0x45ac508), "conflicts", 0, ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 756 # App::Sqitch::Plan::_parse_deps(App::Sqitch::Plan=HASH(0x45ac508), HASH(0x3566f18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 789 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "foo_table", "requires", ARRAY(0x4b28330), "conflicts", ARRAY(0x4b2b270), "note", "hello\x{a}\x{a}there", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4b2b390), "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 330) line 43. # at (eval 330) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_project = \${\$_[1]->{\"\\\$default_for_projec"..., HASH(0x4b2c8c8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x345bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x345bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::project(App::Sqitch::Plan::Depend=HASH(0x4b2c040)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 856 # App::Sqitch::Plan::_check_dependencies(App::Sqitch::Plan=HASH(0x45ac508), App::Sqitch::Plan::Change=HASH(0x4b28258), "add") called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 795 # App::Sqitch::Plan::add(App::Sqitch::Plan=HASH(0x45ac508), "name", "foo_table", "requires", ARRAY(0x4b28330), "conflicts", ARRAY(0x4b2b270), "note", "hello\x{a}\x{a}there", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/add.pm line 286 # App::Sqitch::Command::add::execute(App::Sqitch::Command::add=HASH(0x4b2b390), "foo_table") called at t/add.t line 519 # # ---------- # Previous test 162 'Args array should be cleared of options' # cannot unlink file for test-add\sqitch.plan: Permission denied at t/add.t line 363. # at C:\cpanfly-5.16\var\megalib/File/Path.pm line 57. # File::Path::_error(HASH(0x5233d58), "cannot unlink file", "test-add\\sqitch.plan") called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 428 # File::Path::_rmtree(HASH(0x5233d58), ARRAY(0x234b808)) called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 355 # File::Path::_rmtree(HASH(0x5233da0), ARRAY(0x234aed0)) called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 254 # File::Path::rmtree("test-add") called at t/add.t line 363 # main::END() called at t/add.t line 0 # eval {...} called at t/add.t line 0 # # ---------- # Previous test 162 'Args array should be cleared of options' # cannot remove directory for test-add: Directory not empty at t/add.t line 363. # at C:\cpanfly-5.16\var\megalib/File/Path.pm line 57. # File::Path::_error(HASH(0x5233da0), "cannot remove directory", "test-add") called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 394 # File::Path::_rmtree(HASH(0x5233da0), ARRAY(0x234aed0)) called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 254 # File::Path::rmtree("test-add") called at t/add.t line 363 # main::END() called at t/add.t line 0 # eval {...} called at t/add.t line 0 # # 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 '--nosuchscript.ply--' is not recognized as an internal or external command, operable program or batch file. # Failed test 'no warnings' # at C:\cpanfly-5.16\var\megalib/Test/NoWarnings.pm line 45. # There were 57 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at C:\cpanfly-5.16\var\megalib/Moo/_Utils.pm line 84. # at C:\cpanfly-5.16\var\megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x2df7928)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x2df7850)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x2df7790)) called at C:\cpanfly-5.16\var\megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at C:\cpanfly-5.16\var\megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at C:\cpanfly-5.16\var\megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x2b8c4c8), "required", 1) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at t/base.t line 13 # main::BEGIN() called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x2c51760)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x2fc35e0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x330f698)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x2fcca60)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x3314298)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x2fc9ce8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x3318cb0)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x2fc9c28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x331b6f8)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x2fcce38)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x3320148)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x2fccad8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x3324b60)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x2fccaa8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x33ff1d0)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x2fccaf0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x3403c20)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x3313d98)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x3407658)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x2fc34f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x340c090)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x331b428)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x340ea58)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x33fef18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny::Class=HASH(0x3415498)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x3403930)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny=HASH(0x3418f08)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x2b8c4c8), "constraint", CODE(0x33095a8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny=HASH(0x341c718)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x2b8c4c8), "constraint", CODE(0x33097a0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny=HASH(0x341fbf8)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x3309968)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x31ae120), Type::Tiny=HASH(0x3421d80)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x2b878b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval 'package main; # # #line 18 t/base.t # use App::Sqitch @{$args[0]}; # 1; # # ;' called at C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at C:\cpanfly-5.16\var\megalib/Moo/Object.pm line 69. # at C:\cpanfly-5.16\var\megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at C:\cpanfly-5.16\var\megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at C:\cpanfly-5.16\var\megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at C:\cpanfly-5.16\var\megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x34ed180), ARRAY(0x34f4100)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\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 C:\cpanfly-5.16\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(0x1d53e38)) called at C:\cpanfly-5.16\var\megalib/Test/More.pm line 967 # Test::More::use_ok("App::Sqitch") called at t/base.t line 18 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\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 215) line 77. # at (eval 215) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2dd5e70)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x392ec30)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x2fa2520)) called at C:\cpanfly-5.16\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 215) line 438. # at (eval 215) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2dd5e70)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x392ec30)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x2fa2520)) called at C:\cpanfly-5.16\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 215) line 515. # at (eval 215) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2dd5e70)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x392ec30)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x2fa2520)) called at C:\cpanfly-5.16\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 235) line 43. # at (eval 235) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_plan = \${\$_[1]->{\"\\\$default_for_plan\"}};\x{a}"..., HASH(0x3930d40)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3788e00)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3788e00)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x4de140)) 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 236) line 71. # at (eval 236) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x3945cc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3948308)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3766b20)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x4de140)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x330f698), "sqitch", App::Sqitch=HASH(0x4de140)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x4de140)) called at (eval 235) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x4de140)) 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 236) line 107. # at (eval 236) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x3945cc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3948308)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3766b20)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x4de140)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x330f698), "sqitch", App::Sqitch=HASH(0x4de140)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x4de140)) called at (eval 235) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x4de140)) 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 236) line 256. # at (eval 236) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x3945cc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3948308)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3766b20)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x4de140)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x330f698), "sqitch", App::Sqitch=HASH(0x4de140)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x4de140)) called at (eval 235) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x4de140)) 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 238) line 43. # at (eval 238) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x394a178)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x378b1b0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x378b1b0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x4de140)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 240 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x4de140)) called at (eval 237) line 23 # App::Sqitch::user_name(App::Sqitch=HASH(0x4de140)) 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 278) line 189. # at (eval 278) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x39508b0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45dced8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x429c140)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x3aca4f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x3aca4f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x40a7d00), "uri", URI::db=ARRAY(0x3acacf0)) 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 278) line 379. # at (eval 278) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x39508b0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45dced8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x429c140)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x3aca4f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x3aca4f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x40a7d00), "uri", URI::db=ARRAY(0x3acacf0)) 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 278) line 456. # at (eval 278) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x39508b0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45dced8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x429c140)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x3aca4f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x3aca4f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x40a7d00), "uri", URI::db=ARRAY(0x3acacf0)) 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 278) line 492. # at (eval 278) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x39508b0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45dced8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x429c140)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::pg::new("App::Sqitch::Engine::pg", HASH(0x3aca4f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x3aca4f0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x40a7d00), "uri", URI::db=ARRAY(0x3acacf0)) 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 285) line 189. # at (eval 285) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45df698)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45f6520)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x42d55d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45ec5e8), "uri", URI::db=ARRAY(0x45ecc30)) 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 285) line 379. # at (eval 285) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45df698)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45f6520)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x42d55d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45ec5e8), "uri", URI::db=ARRAY(0x45ecc30)) 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 285) line 456. # at (eval 285) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45df698)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45f6520)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x42d55d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45ec5e8), "uri", URI::db=ARRAY(0x45ecc30)) 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 285) line 492. # at (eval 285) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45df698)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45f6520)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x42d55d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45ec5e8), "uri", URI::db=ARRAY(0x45ecc30)) 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 285) line 528. # at (eval 285) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45df698)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x45f6520)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x42d55d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::sqlite::new("App::Sqitch::Engine::sqlite", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45e4370)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45ec5e8), "uri", URI::db=ARRAY(0x45ecc30)) 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 293) line 189. # at (eval 293) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45fac68)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48b8b80)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x40b77d0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45fd788), "uri", URI::db=ARRAY(0x422fa38)) 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 293) line 379. # at (eval 293) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45fac68)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48b8b80)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x40b77d0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45fd788), "uri", URI::db=ARRAY(0x422fa38)) 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 293) line 456. # at (eval 293) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45fac68)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48b8b80)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x40b77d0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45fd788), "uri", URI::db=ARRAY(0x422fa38)) 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 293) line 492. # at (eval 293) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45fac68)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48b8b80)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x40b77d0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45fd788), "uri", URI::db=ARRAY(0x422fa38)) 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 293) line 528. # at (eval 293) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x45fac68)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48b8b80)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x40b77d0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::mysql::new("App::Sqitch::Engine::mysql", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x45fe2c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x45fd788), "uri", URI::db=ARRAY(0x422fa38)) 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 301) line 189. # at (eval 301) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48bd270)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48dcbb0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460a310)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::oracle::new("App::Sqitch::Engine::oracle", HASH(0x48c5668)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48c5668)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48bf980), "uri", URI::db=ARRAY(0x3acc1e0)) 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 301) line 379. # at (eval 301) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48bd270)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48dcbb0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460a310)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::oracle::new("App::Sqitch::Engine::oracle", HASH(0x48c5668)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48c5668)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48bf980), "uri", URI::db=ARRAY(0x3acc1e0)) 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 301) line 456. # at (eval 301) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48bd270)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48dcbb0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460a310)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::oracle::new("App::Sqitch::Engine::oracle", HASH(0x48c5668)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48c5668)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48bf980), "uri", URI::db=ARRAY(0x3acc1e0)) 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 301) line 492. # at (eval 301) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48bd270)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48dcbb0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460a310)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::oracle::new("App::Sqitch::Engine::oracle", HASH(0x48c5668)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48c5668)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48bf980), "uri", URI::db=ARRAY(0x3acc1e0)) 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 309) line 189. # at (eval 309) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48dea98)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48f2728)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460ae58)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48e11a8), "uri", URI::db=ARRAY(0x45fd2e8)) 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 309) line 379. # at (eval 309) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48dea98)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48f2728)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460ae58)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48e11a8), "uri", URI::db=ARRAY(0x45fd2e8)) 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 309) line 456. # at (eval 309) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48dea98)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48f2728)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460ae58)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48e11a8), "uri", URI::db=ARRAY(0x45fd2e8)) 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 309) line 492. # at (eval 309) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48dea98)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48f2728)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460ae58)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48e11a8), "uri", URI::db=ARRAY(0x45fd2e8)) 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 309) line 528. # at (eval 309) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48dea98)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48f2728)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460ae58)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48e11a8), "uri", URI::db=ARRAY(0x45fd2e8)) 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 309) line 637. # at (eval 309) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x48dea98)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x48f2728)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x460ae58)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::firebird::new("App::Sqitch::Engine::firebird", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x48e9a28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x48e11a8), "uri", URI::db=ARRAY(0x45fd2e8)) 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 317) line 189. # at (eval 317) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x4af4cf8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b166c0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x4b14b50)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::vertica::new("App::Sqitch::Engine::vertica", HASH(0x4b07960)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x4b07960)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x4afa470), "uri", URI::db=ARRAY(0x48bd708)) 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 317) line 379. # at (eval 317) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x4af4cf8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b166c0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x4b14b50)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::vertica::new("App::Sqitch::Engine::vertica", HASH(0x4b07960)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x4b07960)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x4afa470), "uri", URI::db=ARRAY(0x48bd708)) 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 317) line 456. # at (eval 317) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x4af4cf8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b166c0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x4b14b50)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::vertica::new("App::Sqitch::Engine::vertica", HASH(0x4b07960)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x4b07960)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x4afa470), "uri", URI::db=ARRAY(0x48bd708)) 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 317) line 492. # at (eval 317) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x4af4cf8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4b166c0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x4b14b50)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Engine::vertica::new("App::Sqitch::Engine::vertica", HASH(0x4b07960)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Engine.pm line 262 # App::Sqitch::Engine::load("App::Sqitch::Engine", HASH(0x4b07960)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 98 # App::Sqitch::engine(App::Sqitch=HASH(0x4afa470), "uri", URI::db=ARRAY(0x48bd708)) 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 369) line 70. # at (eval 369) 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 = "2018"; # ${^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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x4b16de0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4d02fa0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x34f2278)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::new("App::Sqitch::Command::help", HASH(0x2fbc198)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x4cebb30)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 345 # App::Sqitch::try {...} () called at C:\cpanfly-5.16\var\megalib/Try/Tiny.pm line 76 # eval {...} called at C:\cpanfly-5.16\var\megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x4ceb7e8), Try::Tiny::Catch=REF(0x34e5df8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\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 370) line 70. # at (eval 370) 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 = "2018"; # ${^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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x4d04408)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4d071b0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x4d06ce0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::help::new("App::Sqitch::Command::help", HASH(0x2fbc198)) called at (eval 369) line 25 # App::Sqitch::Command::new("App::Sqitch::Command::help", HASH(0x2fbc198)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x4cebb30)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 345 # App::Sqitch::try {...} () called at C:\cpanfly-5.16\var\megalib/Try/Tiny.pm line 76 # eval {...} called at C:\cpanfly-5.16\var\megalib/Try/Tiny.pm line 72 # Try::Tiny::try(CODE(0x4ceb7e8), Try::Tiny::Catch=REF(0x34e5df8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\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 5 (wstat 1280, 0x500) Failed 1/242 subtests # Failed test 'no warnings' # at C:\cpanfly-5.16\var\megalib/Test/NoWarnings.pm line 45. # There were 26 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at C:\cpanfly-5.16\var\megalib/Moo/_Utils.pm line 84. # at C:\cpanfly-5.16\var\megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x2fee288)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x2fee1b0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x2fee0f0)) called at C:\cpanfly-5.16\var\megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at C:\cpanfly-5.16\var\megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at C:\cpanfly-5.16\var\megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x2c13010), "required", 1) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x2cd42a8)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x2ffe550)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32c68a8)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x30079d0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32c9c20)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x3005c68)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32cddf8)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x3005ba8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32d1fe8)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x3007da8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32d41a0)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x3007a48)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32db3e0)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x3007a18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32de5a8)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x3007a60)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32e1770)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x32c9860)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32e4968)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x2ffe460)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32e7b18)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x32d1bf8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32eccd0)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x32dd188)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny::Class=HASH(0x32eee58)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x32e1398)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny=HASH(0x32f3060)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x2c13010), "constraint", CODE(0x32c17c8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny=HASH(0x3381c50)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x2c13010), "constraint", CODE(0x32c19c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny=HASH(0x3383418)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x32c1b88)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x3197350), Type::Tiny=HASH(0x3386f88)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x2c11460)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at C:\cpanfly-5.16\var\megalib/Moo/Object.pm line 69. # at C:\cpanfly-5.16\var\megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at C:\cpanfly-5.16\var\megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at C:\cpanfly-5.16\var\megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at C:\cpanfly-5.16\var\megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x34f0ae0), ARRAY(0x34f5a40)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/blank.t line 12 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\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 207) line 77. # at (eval 207) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e08da0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3980358)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x240fe40)) called at C:\cpanfly-5.16\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 207) line 438. # at (eval 207) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e08da0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3980358)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x240fe40)) called at C:\cpanfly-5.16\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 207) line 515. # at (eval 207) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e08da0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3980358)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x240fe40)) called at C:\cpanfly-5.16\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 208) line 71. # at (eval 208) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x3981470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3982c00)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3634df0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x4de170)) 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 208) line 107. # at (eval 208) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x3981470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3982c00)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3634df0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x4de170)) 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 208) line 256. # at (eval 208) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x3981470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3982c00)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3634df0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x4de170)) 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 209) line 262. # at (eval 209) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x398cfa0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x398dc08)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x360b468)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x3984b60)) 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 5 (wstat 1280, 0x500) Failed 1/34 subtests Subroutine Method::Generate::Constructor::new redefined at C:\cpanfly-5.16\var\megalib/Moo/_Utils.pm line 84. Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. Subroutine Moo::Object::does redefined at C:\cpanfly-5.16\var\megalib/Moo/Object.pm line 69. # Failed test 'no warnings' # at C:\cpanfly-5.16\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 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7d470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4de398)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1d5eac0)) called at C:\cpanfly-5.16\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 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7d470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4de398)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1d5eac0)) called at C:\cpanfly-5.16\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 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7d470)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4de398)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1d5eac0)) called at C:\cpanfly-5.16\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 216) line 250. # at (eval 216) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x39192f0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e5eee0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3e570b8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::bundle::new("App::Sqitch::Command::bundle", HASH(0x3e58eb0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x3702e68)) called at t/bundle.t line 28 # # ---------- # Previous test 1 'Load a sqitch object' # Useless use of array element in void context at (eval 216) line 286. # at (eval 216) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x39192f0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e5eee0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3e570b8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::bundle::new("App::Sqitch::Command::bundle", HASH(0x3e58eb0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x3702e68)) called at t/bundle.t line 28 # # ---------- # Previous test 1 'Load a sqitch object' # Useless use of array element in void context at (eval 216) line 322. # at (eval 216) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_UNQUOTED = \${\$_[1]->{\"\\\$_UNQUOTED\"}};\x{a} my \$_QUOTED "..., HASH(0x39192f0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e5eee0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3e570b8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Command::bundle::new("App::Sqitch::Command::bundle", HASH(0x3e58eb0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command.pm line 98 # App::Sqitch::Command::load("App::Sqitch::Command", HASH(0x3702e68)) called at t/bundle.t line 28 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 261) line 43. # at (eval 261) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3e60b70)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x36fdbc0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x36fdbc0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 262) line 71. # at (eval 262) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x40a28f8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x40a0fb0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x355bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x31de6f8), "sqitch", App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x3e5e2c0)) called at (eval 261) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 262) line 107. # at (eval 262) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x40a28f8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x40a0fb0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x355bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x31de6f8), "sqitch", App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x3e5e2c0)) called at (eval 261) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 262) line 256. # at (eval 262) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x40a28f8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x40a0fb0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x355bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x31de6f8), "sqitch", App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 60 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x3e5e2c0)) called at (eval 261) line 22 # App::Sqitch::plan(App::Sqitch=HASH(0x3e5e2c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # 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 = "1762"; # ${^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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x40a0228)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x356a7a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x356a7a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 266) line 298, line 1. # at (eval 266) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3e8f348)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e8c6d8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35485d0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "operator", "=", "lopspace", "", "hspace", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of hash element in void context at (eval 266) line 311, line 1. # at (eval 266) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3e8f348)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e8c6d8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35485d0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "operator", "=", "lopspace", "", "hspace", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 267) line 262, line 2. # at (eval 267) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3e8bbf0)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e8c450)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x34605b8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "lspace", "") called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 278) line 597, line 3. # at (eval 278) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x3e84f48)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4501f48)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x353b518)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "lopspace", "", "rspace", " ", "operator", "+", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 278) line 633, line 3. # at (eval 278) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x3e84f48)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4501f48)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x353b518)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "lopspace", "", "rspace", " ", "operator", "+", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 278) line 906, line 3. # at (eval 278) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x3e84f48)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4501f48)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x353b518)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "lopspace", "", "rspace", " ", "operator", "+", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of hash element in void context at (eval 278) line 646, line 3. # at (eval 278) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x3e84f48)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x4501f48)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x353b518)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "lopspace", "", "rspace", " ", "operator", "+", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 420 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 279) line 61, line 4. # at (eval 279) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47991a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e80e00)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x34476f8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", App::Sqitch::Plan::Change=HASH(0x47942d8), "rspace", " ", "timestamp", App::Sqitch::DateTime=HASH(0x3e80030), ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 279) line 441, line 4. # at (eval 279) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47991a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e80e00)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x34476f8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", App::Sqitch::Plan::Change=HASH(0x47942d8), "rspace", " ", "timestamp", App::Sqitch::DateTime=HASH(0x3e80030), ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 279) line 637, line 4. # at (eval 279) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47991a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3e80e00)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x34476f8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", App::Sqitch::Plan::Change=HASH(0x47942d8), "rspace", " ", "timestamp", App::Sqitch::DateTime=HASH(0x3e80030), ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 374 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 281) line 57, line 5. # at (eval 281) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47d10a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e1c18)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", "users", "conflicts", 0) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 281) line 206, line 5. # at (eval 281) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47d10a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e1c18)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", "users", "conflicts", 0) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 281) line 278, line 5. # at (eval 281) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47d10a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e1c18)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", "users", "conflicts", 0) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 281) line 314, line 5. # at (eval 281) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47d10a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e1c18)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", "users", "conflicts", 0) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 281) line 350, line 5. # at (eval 281) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47d10a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e1c18)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", "users", "conflicts", 0) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 281) line 386, line 5. # at (eval 281) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47d10a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e1c18)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3451fd8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::new("App::Sqitch::Plan::Depend", "plan", App::Sqitch::Plan=HASH(0x40a0ec0), "change", "users", "conflicts", 0) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 407 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x32d3098), IO::File=GLOB(0x3e8d8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 264) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 73 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 263) line 22 # App::Sqitch::Plan::_lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 579 # App::Sqitch::Plan::lines(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 908 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 282) line 43, line 6. # at (eval 282) 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 = "1762"; # ${^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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x47d97d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x356aa78)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x356aa78)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 586 # App::Sqitch::Plan::find(App::Sqitch::Plan=HASH(0x40a0ec0), "widgets") called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 926 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) called at t/bundle.t line 257 # # ---------- # Previous test 68 'From should be "widgets"' # Useless use of array element in void context at (eval 296) line 43, line 6. # at (eval 296) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_project = \${\$_[1]->{\"\\\$default_for_projec"..., HASH(0x4b24498)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x345bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x345bbc8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::project(App::Sqitch::Plan::Depend=HASH(0x47e1fc0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Depend.pm line 167 # App::Sqitch::Plan::Depend::as_string(App::Sqitch::Plan::Depend=HASH(0x47e1fc0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 117 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x47e7e70)) called at (eval 284) line 22 # App::Sqitch::Plan::Change::info(App::Sqitch::Plan::Change=HASH(0x47e7e70)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 138 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x47e7e70)) called at (eval 283) line 22 # App::Sqitch::Plan::Change::id(App::Sqitch::Plan::Change=HASH(0x47e7e70)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/ChangeList.pm line 189 # App::Sqitch::Plan::ChangeList::append(App::Sqitch::Plan::ChangeList=HASH(0x4b24408), App::Sqitch::Plan::Change=HASH(0x47942d8), App::Sqitch::Plan::Change=HASH(0x47e7e70), App::Sqitch::Plan::Change=HASH(0x4b20c50)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/ChangeList.pm line 19 # App::Sqitch::Plan::ChangeList::new("App::Sqitch::Plan::ChangeList", App::Sqitch::Plan::Change=HASH(0x47942d8), App::Sqitch::Plan::Change=HASH(0x47e7e70), App::Sqitch::Plan::Change=HASH(0x4b20c50)) called at C:\cpanfly-5.16\var\megalib/Type/Tiny/Class.pm line 47 # Type::Tiny::Class::new(Type::Tiny::Class=HASH(0x31e0aa8), App::Sqitch::Plan::Change=HASH(0x47942d8), App::Sqitch::Plan::Change=HASH(0x47e7e70), App::Sqitch::Plan::Change=HASH(0x4b20c50)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 64 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x40a0ec0)) called at (eval 282) line 22 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x40a0ec0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 586 # App::Sqitch::Plan::find(App::Sqitch::Plan=HASH(0x40a0ec0), "widgets") called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 926 # App::Sqitch::Plan::write_to(App::Sqitch::Plan=HASH(0x40a0ec0), Path::Class::File=HASH(0x3e92060), "widgets", undef) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Command/bundle.pm line 183 # App::Sqitch::Command::bundle::bundle_plan(App::Sqitch::Command::bundle=HASH(0x40a51a0)) 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 # Failed test 'no warnings' # at C:\cpanfly-5.16\var\megalib/Test/NoWarnings.pm line 45. # There were 48 warning(s) # Previous test 0 '' # Subroutine Method::Generate::Constructor::new redefined at C:\cpanfly-5.16\var\megalib/Moo/_Utils.pm line 84. # at C:\cpanfly-5.16\var\megalib/Moo/_Utils.pm line 83. # Moo::_Utils::_install_coderef("Method::Generate::Constructor::new", CODE(0x2e9b0a0)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 61 # Sub::Defer::defer_sub("Method::Generate::Constructor::new", CODE(0x2e9afc8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 81 # Method::Generate::Constructor::install_delayed(Method::Generate::Constructor=HASH(0x2e9af08)) called at C:\cpanfly-5.16\var\megalib/Moo.pm line 198 # Moo::_constructor_maker_for("Moo", "Method::Generate::Constructor") called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 208 # require Method/Generate/Constructor.pm called at C:\cpanfly-5.16\var\megalib/Moo.pm line 151 # Moo::_constructor_maker_for("Moo", "App::Sqitch::X") called at C:\cpanfly-5.16\var\megalib/Moo.pm line 52 # Moo::has("message", "is", "ro", "isa", Type::Tiny=HASH(0x2c469a8), "required", 1) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/X.pm line 14 # require App/Sqitch/X.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 16 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Sqitch (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x2caccb8)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "Sqitch", "class", "App::Sqitch") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Sqitch", HASH(0x3035ff0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 37 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Plan (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x31bd520)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Plan", HASH(0x303e4d8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 38 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Change (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32d7508)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Change", HASH(0x303d780)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 39 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ChangeList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32da6d0)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("ChangeList", HASH(0x303d6c0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 40 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::LineList (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32de8c0)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("LineList", HASH(0x303e8b0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 41 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Tag (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32e1a88)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Tag", HASH(0x303e550)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 42 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Depend (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32e5c60)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Depend", HASH(0x303e520)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 43 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DateTime (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32e9e38)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DateTime", HASH(0x303eb08)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 44 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URIDB (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32ebff0)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "URIDB", "class", "URI::db") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("URIDB", HASH(0x31c2a08)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 45 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Config (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32f3260)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Config", HASH(0x3036140)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 46 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::File (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32f6410)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("File", HASH(0x32de3e0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 47 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::Dir (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32f95a8)) called at C:\cpanfly-5.16\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 C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("Dir", HASH(0x32e9970)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 48 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::DBH (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny::Class=HASH(0x32fd750)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("bless", "Type::Tiny::Class", "_caller_level", 1, "name", "DBH", "class", "DBI::db") called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 181 # Type::Utils::class_type("DBH", HASH(0x32ebb28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 49 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserName (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny=HASH(0x3300948)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserName", "parent", Type::Tiny=HASH(0x2c469a8), "constraint", CODE(0x31b84a0)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 55 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::UserEmail (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny=HASH(0x3303918)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("UserEmail", "parent", Type::Tiny=HASH(0x2c469a8), "constraint", CODE(0x31b8698)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 60 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::URI (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny=HASH(0x3306498)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("name", "URI", "constraint", CODE(0x31b8860)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 66 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Prototype mismatch: sub App::Sqitch::Types::ConfigBool (;$) vs () at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # at C:\cpanfly-5.16\var\megalib/Type/Library.pm line 245. # Type::Library::add_type(App::Sqitch::Types=HASH(0x30485c0), Type::Tiny=HASH(0x33069a8)) called at C:\cpanfly-5.16\var\megalib/Type/Utils.pm line 134 # Type::Utils::declare("ConfigBool", "parent", Type::Tiny=HASH(0x2c41d90)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 68 # require App/Sqitch/Types.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 19 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Types.pm line 0 # # ---------- # Previous test 0 '' # Subroutine Moo::Object::does redefined at C:\cpanfly-5.16\var\megalib/Moo/Object.pm line 69. # at C:\cpanfly-5.16\var\megalib/Moo/Object.pm line 69. # Moo::Object::does("App::Sqitch::Plan::Tag", "App::Sqitch::Types") called at C:\cpanfly-5.16\var\megalib/namespace/autoclean.pm line 200 # namespace::autoclean::__ANON__("DateTime") called at C:\cpanfly-5.16\var\megalib/namespace/autoclean.pm line 173 # namespace::autoclean::__ANON__() called at C:\cpanfly-5.16\var\megalib/B/Hooks/EndOfScope/XS.pm line 26 # B::Hooks::EndOfScope::XS::__ANON__(HASH(0x33b4ee0), ARRAY(0x33bae50)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan/Tag.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 5 # App::Sqitch::Plan::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch/Plan.pm called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 37 # App::Sqitch::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # require App/Sqitch.pm called at t/change.t line 10 # main::BEGIN() called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Tag.pm line 123 # eval {...} called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\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 205) line 77. # at (eval 205) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7b628)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3809528)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1f79c78)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x4de3c8)) 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 205) line 438. # at (eval 205) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7b628)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3809528)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1f79c78)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x4de3c8)) 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 205) line 515. # at (eval 205) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fwas_5fset = \${\$_[1]->{\"\\\$default_for__"..., HASH(0x2e7b628)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3809528)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x1f79c78)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::new("App::Sqitch", "top_dir", Path::Class::Dir=HASH(0x4de3c8)) 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 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x380b5a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x380e950)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3668f08)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3808608)) 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 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x380b5a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x380e950)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3668f08)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3808608)) 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 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_uri = \${\$_[1]->{\"\\\$isa_check_for_uri\"}}"..., HASH(0x380b5a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x380e950)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3668f08)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::new("App::Sqitch::Plan", "sqitch", App::Sqitch=HASH(0x3808608)) 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 214) line 597. # at (eval 214) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_planner_5femail = \${\$_[1]->{\"\\\$isa_chec"..., HASH(0x38171c8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x37e8a68)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35345d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x380ed28)) 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 214) line 633. # at (eval 214) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_planner_5femail = \${\$_[1]->{\"\\\$isa_chec"..., HASH(0x38171c8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x37e8a68)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35345d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x380ed28)) 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 214) line 906. # at (eval 214) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$isa_check_for_planner_5femail = \${\$_[1]->{\"\\\$isa_chec"..., HASH(0x38171c8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x37e8a68)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35345d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Change::new("App::Sqitch::Plan::Change", "name", "foo", "plan", App::Sqitch::Plan=HASH(0x380ed28)) 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 218) line 43. # at (eval 218) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$default_for_"..., HASH(0x3a60360)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x37e10f8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x37e10f8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::sysuser(App::Sqitch=HASH(0x3808608)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch.pm line 266 # App::Sqitch::__ANON__(App::Sqitch=HASH(0x3808608)) called at (eval 217) line 23 # App::Sqitch::user_email(App::Sqitch=HASH(0x3808608)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 190 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at (eval 214) line 649 # App::Sqitch::Plan::Change::new(undef, "name", "foo", "plan", App::Sqitch::Plan=HASH(0x380ed28)) 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 237) line 61. # at (eval 237) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3a6c3a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x46ac508)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35154a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x380ed28), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) 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 237) line 441. # at (eval 237) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3a6c3a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x46ac508)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35154a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x380ed28), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) 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 237) line 637. # at (eval 237) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3a6c3a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x46ac508)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35154a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x380ed28), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) 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 237) line 74. # at (eval 237) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3a6c3a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x46ac508)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35154a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x380ed28), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) 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 237) line 454. # at (eval 237) 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 = "2018"; # ${^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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x3a6c3a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x46ac508)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x35154a8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Tag::new("App::Sqitch::Plan::Tag", "plan", App::Sqitch::Plan=HASH(0x380ed28), "name", "alpha", "change", App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at t/change.t line 87 # # ---------- # Previous test 34 'Parent should be undef' # Useless use of array element in void context at (eval 265) line 298, line 1. # at (eval 265) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x46b05d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e46d8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3654900)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x380ed28), "operator", "=", "lopspace", "", "hspace", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x380ed28), Path::Class::File=HASH(0x368a420), IO::File=GLOB(0x3677a70)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 263) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x380ed28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 262) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 261) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 152 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at (eval 260) line 22 # App::Sqitch::Plan::Change::old_info(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at t/change.t line 155 # # ---------- # Previous test 34 'Parent should be undef' # Useless use of hash element in void context at (eval 265) line 311, line 1. # at (eval 265) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x46b05d8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e46d8)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3654900)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Pragma::new("App::Sqitch::Plan::Pragma", "plan", App::Sqitch::Plan=HASH(0x380ed28), "operator", "=", "lopspace", "", "hspace", "", ...) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 232 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x380ed28), Path::Class::File=HASH(0x368a420), IO::File=GLOB(0x3677a70)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 263) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x380ed28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 262) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 261) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 152 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at (eval 260) line 22 # App::Sqitch::Plan::Change::old_info(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at t/change.t line 155 # # ---------- # Previous test 34 'Parent should be undef' # Useless use of array element in void context at (eval 266) line 262, line 2. # at (eval 266) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47e5188)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47e4960)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x352d358)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Blank::new("App::Sqitch::Plan::Blank", "plan", App::Sqitch::Plan=HASH(0x380ed28), "lspace", "") called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 180 # App::Sqitch::Plan::_parse(App::Sqitch::Plan=HASH(0x380ed28), Path::Class::File=HASH(0x368a420), IO::File=GLOB(0x3677a70)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 125 # App::Sqitch::Plan::load(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 263) line 57 # App::Sqitch::Plan::_plan(App::Sqitch::Plan=HASH(0x380ed28)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 88 # App::Sqitch::Plan::__ANON__(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 262) line 22 # App::Sqitch::Plan::project(App::Sqitch::Plan=HASH(0x380ed28)) called at (eval 261) line 17 # App::Sqitch::Plan::Line::project(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 152 # App::Sqitch::Plan::Change::__ANON__(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) called at (eval 260) line 22 # App::Sqitch::Plan::Change::old_info(App::Sqitch::Plan::Change=HASH(0x3a5f7e8)) 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 276) line 43, line 3. # at (eval 276) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47f0040)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x368c270)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x368c270)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::plan(App::Sqitch=HASH(0x3808608)) 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 277) line 57, line 3. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47fd580)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47feec0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3521de0)) called at C:\cpanfly-5.16\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(0x47fcf90), "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 277) line 206, line 3. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47fd580)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47feec0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3521de0)) called at C:\cpanfly-5.16\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(0x47fcf90), "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 277) line 278, line 3. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47fd580)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47feec0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3521de0)) called at C:\cpanfly-5.16\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(0x47fcf90), "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 277) line 314, line 3. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47fd580)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47feec0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3521de0)) called at C:\cpanfly-5.16\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(0x47fcf90), "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 277) line 350, line 3. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47fd580)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47feec0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3521de0)) called at C:\cpanfly-5.16\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(0x47fcf90), "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 277) line 386, line 3. # at (eval 277) 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 = "2018"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000\\000"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (Type::Tiny::XS::AUTO::TC2($_[0])) ? $_[0] : Type::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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$_QUOTED = \${\$_[1]->{\"\\\$_QUOTED\"}};\x{a} my \$_UNQUOTED = "..., HASH(0x47fd580)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x47feec0)) called at C:\cpanfly-5.16\var\megalib/Method/Generate/Constructor.pm line 78 # Method::Generate::Constructor::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3521de0)) called at C:\cpanfly-5.16\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(0x47fcf90), "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 278) line 43, line 3. # at (eval 278) 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 = "1762"; # ${^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 = "2018"; # ${^WARNING_BITS} = "UUUUUUUUUUUUU"; # %^H = ( # ); # } # # END quote_sub PRELUDE # do { no warnings "void"; (!defined($_[0]) 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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for_project = \${\$_[1]->{\"\\\$default_for_projec"..., HASH(0x47ff978)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3526948)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3526948)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::Depend::project(App::Sqitch::Plan::Depend=HASH(0x498eb18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Depend.pm line 167 # App::Sqitch::Plan::Depend::as_string(App::Sqitch::Plan::Depend=HASH(0x498eb18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Depend.pm line 174 # App::Sqitch::Plan::Depend::as_plan_string(App::Sqitch::Plan::Depend=HASH(0x498eb18)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 242 # App::Sqitch::Plan::Change::format_dependencies(App::Sqitch::Plan::Change=HASH(0x4990478)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 282 # App::Sqitch::Plan::Change::format_content(App::Sqitch::Plan::Change=HASH(0x4990478)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Line.pm line 153 # App::Sqitch::Plan::Line::as_string(App::Sqitch::Plan::Change=HASH(0x4990478)) 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 299) line 43, line 1. # at (eval 299) 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 = "1762"; # ${^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 = "2018"; # ${^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 C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 5 # Sub::Quote::_clean_eval("{\x{a} my \$default_for__5fchanges = \${\$_[1]->{\"\\\$default_for__5f"..., HASH(0x4994b78)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 157 # Sub::Quote::unquote_sub(CODE(0x3676da8)) called at C:\cpanfly-5.16\var\megalib/Sub/Quote.pm line 99 # Sub::Quote::__ANON__() called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 22 # Sub::Defer::undefer_sub(CODE(0x3676da8)) called at C:\cpanfly-5.16\var\megalib/Sub/Defer.pm line 55 # App::Sqitch::Plan::_changes(App::Sqitch::Plan=HASH(0x49ada98)) called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan.pm line 586 # App::Sqitch::Plan::find(App::Sqitch::Plan=HASH(0x49ada98), "hey") called at C:\cpanfly-5.16\var\cpan\build\App-Sqitch-0.996-_t5s_a\blib\lib/App/Sqitch/Plan/Change.pm line 293 # App::Sqitch::Plan::Change::requires_changes(App::Sqitch::Plan::Change=HASH(0x49ae518)) called at t/change.t line 350 # # ---------- # Previous test 84 'note_prompt() should work' # cannot unlink file for test-change\sqitch.plan: Permission denied at t/change.t line 70. # at C:\cpanfly-5.16\var\megalib/File/Path.pm line 57. # File::Path::_error(HASH(0x21bd1a0), "cannot unlink file", "test-change\\sqitch.plan") called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 428 # File::Path::_rmtree(HASH(0x21bd1a0), ARRAY(0x2405738)) called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 355 # File::Path::_rmtree(HASH(0x49be378), ARRAY(0x2404e38)) called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 254 # File::Path::rmtree("test-change") called at t/change.t line 70 # main::END() called at t/change.t line 0 # eval {...} called at t/change.t line 0 # # ---------- # Previous test 84 'note_prompt() should work' # cannot remove directory for test-change: Directory not empty at t/change.t line 70. # at C:\cpanfly-5.16\var\megalib/File/Path.pm line 57. # File::Path::_error(HASH(0x49be378), "cannot remove directory", "test-change") called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 394 # File::Path::_rmtree(HASH(0x49be378), ARRAY(0x2404e38)) called at C:\cpanfly-5.16\var\megalib/File/Path.pm line 254 # File::Path::rmtree("test-change") called at t/change.t line 70 # main::END() called at t/change.t line 0 # eval {...} called at t/change.t line 0 # # Looks like you failed 1 test of 85. Timeout (max run time is 1680s) C:\Perl64-5.16\bin\perl.exe exits with 37.