App-AutoCRUD
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
my $make = $Config::Config{make};
if ($InstallDepsTarget) {
print
"*** To install dependencies type '$make installdeps' or '$make installdeps_notest'.\n";
}
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
chdir $cwd;
# import to main::
no strict 'refs';
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
inc/Module/AutoInstall.pm view on Meta::CPAN
sub _has_cpanplus {
return (
$HasCPANPLUS = (
$INC{'CPANPLUS/Config.pm'}
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
my $cpan = File::Spec->canonpath( $CPAN::Config->{cpan_home} );
return ( index( $cwd, $cpan ) > -1 );
}
lib/App/AutoCRUD/DataSource.pm view on Meta::CPAN
The argument C<$req> is an instance of L<Plack::Request>.
=head2 primary_key
Proxy method to L<DBIx::DataModel::Meta::Source/primary_key>.
=head2 colgroups
my $colgroups = $datasource->colgroups($table_name);
Returns an arrayref of I<column groups>, as specified in config (or guessed
from the database meta-information, if the config says nothing).
Each column group is a hashref with keys C<name> (containing a string)
and C<columns> (containing an arrayref of I<columns>).
Each column is a hashref as returned from L<DBI/column_info>, i.e. containing
keys C<TABLE_NAME>, C<COLUMN_NAME>, C<DATA_TYPE>, C<COLUMN_SIZE>, etc.
In addition, some other keys are inserted into this hashref :
=over
( run in 0.531 second using v1.01-cache-2.11-cpan-dcdd9aafbe2 )