Algorithm-Dependency-Source-DBI

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
  The "select_depends" param is either a complete SQL string, or a
  reference to an "ARRAY" containing a SQL string with placeholders and
  matching variables.
 
  When executed on the database, it should return two columns containing
  the complete set of all dependencies, where identifiers in the
  first-column depends on identifiers in the second-column.
 
  Returns a new Algorithm::Dependency::Source::DBI object, or dies on
  error.
 
dbh
  The "dbh" accessor returns the database handle provided to the
  constructor.
 
select_ids
  The "select_ids" accessor returns the SQL statement provided to the
  constructor. If a raw string was provided, it will be returned as a
  reference to an "ARRAY" containing the SQL string and no params.

inc/Module/Install.pm  view on Meta::CPAN

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 
 
 
 
# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the caller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) { die <<"END_DIE" }
 
Please invoke ${\__PACKAGE__} with:
 
        use inc::${\__PACKAGE__};
 
not:
 
        use ${\__PACKAGE__};

inc/Module/Install.pm  view on Meta::CPAN

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
        my $s = (stat($0))[9];
 
        # If the modification time is only slightly in the future,
        # sleep briefly to remove the problem.
        my $a = $s - time;
        if ( $a > 0 and $a < 5 ) { sleep 5 }
 
        # Too far in the future, throw an error.
        my $t = time;
        if ( $s > $t ) { die <<"END_DIE" }
 
Your installer $0 has a modification time in the future ($s > $t).
 
This is known to create infinite loops in make.
 
Please correct this, then run $0 again.
 
END_DIE

lib/Algorithm/Dependency/Source/DBI.pm  view on Meta::CPAN

102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
 
The C<select_depends> param is either a complete SQL string, or a reference
to an C<ARRAY> containing a SQL string with placeholders and matching
variables.
 
When executed on the database, it should return two columns containing
the complete set of all dependencies, where identifiers in the first-column
depends on identifiers in the second-column.
 
Returns a new L<Algorithm::Dependency::Source::DBI> object, or dies on
error.
 
=cut
 
sub new {
        my $class = shift;
 
        # Create the object
        my $self = bless { @_ }, $class;
 
        # Apply defaults