Aaron Crane arc

View gist:6688183
1 2 3 4 5 6 7 8 9 10
diff --git i/lib/DBIx/Class/Schema/Loader/Base.pm w/lib/DBIx/Class/Schema/Loader/Base.pm
index b37223c..9c1f295 100644
--- i/lib/DBIx/Class/Schema/Loader/Base.pm
+++ w/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -2393,6 +2393,11 @@ sub _make_column_accessor_name {
return $accessor;
}
 
+sub _table_is_view {
+ #my ($self, $table) = @_;
View gist:6268974
1 2 3 4 5 6 7 8 9 10
sub call_with_timeout {
my ($timeout, $callback) = @_;
 
my $timeout_expired;
my $completed = eval {
local $SIG{ALRM} = sub { $timeout_expired = 1; die "alarm\n" };
my $completed = eval {
alarm $timeout;
$callback->();
1;
View gist:1957998
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/env perl
 
use strict;
use warnings;
use Carp qw(cluck);
 
use autodie ':all';
use Getopt::Long 2.33 qw(:config auto_help);
use File::Find::Rule;
use File::Basename 'basename';
Something went wrong with that request. Please try again.