=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install.pm-378-sub _read { ############################################## libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install.pm-416-sub _write { ############################################## libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install/Makefile.pm-45-sub makemaker { libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libcatalyst-model-dbic-schema-perl-0.65/inc/Module/Install/Makefile.pm-47-} ############################################## libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm-249- libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm:250: $loader_args{$key} = $self->_eval($val); libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm-251- die "syntax error for loader args key '$key' with value '$val': $@" ############################################## libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm-396- if (/^\s*{.*}\s*\z/) { libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm:397: my $hash = $self->_eval($_); libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm-398- die "Syntax errorr in connect_info hash: $_: $@" if $@; ############################################## libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm-540- if (/^\s*{.*}\s*\z/) { libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm:541: my $hash = $self->_eval($_); libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm-542- die "Syntax errorr in connect_info hash: $_: $@" if $@; ############################################## libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm-555- } else { libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm:556: $connect_info{$key} = $self->_eval($val); libcatalyst-model-dbic-schema-perl-0.65/lib/Catalyst/Helper/Model/DBIC/Schema.pm-557- } ############################################## libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t-43-chdir($test_dir); libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t:44:silent_exec("$^X $catalyst_pl TestApp"); libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t-45-chdir($cat_dir); ############################################## libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t-74- libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t:75: silent_exec($^X, "-I$blib_dir", $creator, 'model', $model, $helper, $model, @args); libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t-76- ############################################## libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t-78- ok( -f $model_path, "$model_path is a file" ); libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t:79: my $compile_rv = silent_exec($^X, "-I$blib_dir", "-I$catlib_dir", "-c", $model_path); libcatalyst-model-dbic-schema-perl-0.65/t/05testapp.t-80- ok($compile_rv == 0, "perl -c $model_path");