DBIx-Class-DynamicDefault

 view release on metacpan or  search on metacpan

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

}

sub autoload {
	my $self = shift;
	my $who  = $self->_caller;
	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";
Unknown function is found at $file line $line.

t/lib/TestSchema.pm  view on Meta::CPAN

use strict;
use warnings;

package TestSchema;

use parent 'DBIx::Class::Schema';

__PACKAGE__->load_classes;

1;

t/lib/TestSchema/Affe.pm  view on Meta::CPAN

use strict;
use warnings;

package TestSchema::Affe;

use parent qw/DBIx::Class/;

__PACKAGE__->load_components(qw/DynamicDefault Core/);
__PACKAGE__->table('affe');

__PACKAGE__->add_columns(
    moo => {
        data_type                 => 'integer',
        dynamic_default_on_update => 'moo_default',
        always_update             => 1,
    },

t/lib/TestSchema/Table.pm  view on Meta::CPAN

use strict;
use warnings;

package TestSchema::Table;

use parent 'DBIx::Class';

__PACKAGE__->load_components(qw/DynamicDefault Core/);
__PACKAGE__->table('fubar');

__PACKAGE__->add_columns(
        quux => {
            data_type                 => 'integer',
            dynamic_default_on_create => 'quux_default',
        },
        garply => {

 view all matches for this distribution
 view release on metacpan -  search on metacpan