# Returns TRUE if we can set trap for $file:linesub DB::can_break {my( $file, $line ) =  @_;($file, $line) =  split ':', $fileunless defined $line;$file =  DB::file( $file );return   unless defined $file;no strict 'refs';return $line >= 0  &&  $line <= $#{ $::{"_<$file"} }&& ${ $::{"_<$file"} }[ $line ] != 0;     # <<< LINE 562# http://perldoc.perl.org/perldebguts.html#Debugger-Internals# Values in this array are magical in numeric context:# they compare equal to zero only if the line is not breakable.}

(eval 481)[/home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/Class/Method/Modifiers.pm:148]Argument "package SQL::Translator;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 35.

(eval 504)[/home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/Sub/Quote.pm:3]x26:return$invoker->new(@_);x27:       }elsif ($INC{"Moose.pm"}andmy$meta = Class::MOP::get_metaclass_by_name($class)) {x28:return$meta->new_object(    29:$class->can("BUILDARGS") ?$class->BUILDARGS(@_)    30:                       :$class->Moo::Object::BUILDARGS(@_)    31:         );    32:       }    33:     }    34:my$args =scalar@_ == 1    35:       ? CORE::ref$_[0]eq'HASH'  >>36:         ? { %{$_[0] } }    37:         : Carp::croak("Single parameters to new() must be a HASH ref"    38:             ." data =>".$_[0])    39:       :@_ % 2Argument"        ? Carp::croak("The new() methodfor$class expec..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    40:         ? Carp::croak("The new() methodfor$class expects a hash referenceor a"Argument"            ." key/value list. You passed an odd number..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    41:             . " key/value list. You passed an odd number of arguments")Argument "        : {@_}\n" isn't numeric in numericne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    42:         : {@_}Argument"    ;\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    43:     ;   x44:     my $new = bless({}, $class);;Argument "(exists $args->{"add_comments"} and ($new->{"add_comment..." isn't numeric in numericne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    45: (exists$args->{"add_comments"}and ($new->{"add_comments"} =$args->{"add_comments"})),Argument"(exists$args->{"add_drop_table"} and ($new->{"add_drop_..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    46: (exists$args->{"add_drop_table"} and ($new->{"add_drop_table"} =$args->{"add_drop_table"})),Argument"(exists$args->{"escape_char"}and ($new->{"escape_char"..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    47: (exists$args->{"escape_char"} and ($new->{"escape_char"} =$args->{"escape_char"})),Argument"(exists$args->{"numeric_types"}and ($new->{"numeric_ty..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    48: (exists $args->{"numeric_types"} and ($new->{"numeric_types"} = $args->{"numeric_types"})),Argument "(exists $args->{"sizeless_types"} and ($new->{"sizeless_..." isn't numeric in numericne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    49: (exists$args->{"sizeless_types"}and ($new->{"sizeless_types"} =$args->{"sizeless_types"})),Argument"(exists$args->{"type_map"} and ($new->{"type_map"} =$a..." isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    50: (exists $args->{"type_map"} and ($new->{"type_map"} = $args->{"type_map"})),   x51: (exists $args->{"unquoted_defaults"} and ($new->{"unquoted_defaults"} = $args->{"unquoted_defaults"})),Argument "    return $new;\n" isn't numeric in numericne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    52:return$new;Argument"  }\n" isn't numeric in numeric ne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    53:   }    54:   $$_UNQUOTED = \&new;Argument "}\n" isn't numeric in numericne (!=) at /home/kes/work/projects/github-forks/sql-translator/local/lib/perl5/DB/Utils.pm line 562, <STDIN> line 32.    55: }    56: 1;