use Encode qw/encode decode/;
use List::Util qw/all any none/;
use File::Temp 'tempfile';
+use curry;
use namespace::clean;
-our $VERSION = '0.07046';
+our $VERSION = '0.07048_01';
__PACKAGE__->mk_group_ro_accessors('simple', qw/
schema
rel_type # the type of the relationship: 'belongs_to', 'has_many' or 'might_have'
local_source # the DBIx::Class::ResultSource object for the source the rel is *from*
remote_source # the DBIx::Class::ResultSource object for the source the rel is *to*
- local_table # a DBIx::Class::Schema::Loader::Table object for the table of the source the rel is from
+ local_table # the DBIx::Class::Schema::Loader::Table object for the table of the source the rel is from
local_cols # an arrayref of column names of columns used in the rel in the source it is from
- remote_table # a DBIx::Class::Schema::Loader::Table object for the table of the source the rel is to
+ remote_table # the DBIx::Class::Schema::Loader::Table object for the table of the source the rel is to
remote_cols # an arrayref of column names of columns used in the rel in the source it is to
attrs # the attributes that would be set
remote_moniker => moniker of the DBIC class we are related to,
remote_columns => columns in the other table in the relationship,
# for type => "many_to_many" only:
- link_class => name of the DBIC class for the link table
- link_moniker => moniker of the DBIC class for the link table
- link_rel_name => name of the relationship to the link table
+ link_class => name of the DBIC class for the link table,
+ link_moniker => moniker of the DBIC class for the link table,
+ link_rel_name => name of the relationship to the link table,
}
In addition it is passed a coderef that can be called with a hashref map.
Must be a coderef that returns a hashref with the extra attributes.
-Receives the L<table object|DBIx::Class::Schema::Loader::Table> (which
-stringifies to the unqualified table name), column name and column_info.
+Receives the L<DBIx::Class::Schema::Loader::Table> object, column name
+and column_info.
For example:
my $mark_md5 = $2;
# Pull out the version and timestamp from the line above
- ($ver, $ts) = $gen =~ m/^# Created by DBIx::Class::Schema::Loader( v[\d.]+)?( @ [\d-]+ [\d:]+)?\r?\Z/m;
+ ($ver, $ts) = $gen =~ m/^# Created by DBIx::Class::Schema::Loader( v[\d._]+)?( @ [\d-]+ [\d:]+)?\r?\Z/m;
$ver =~ s/^ v// if $ver;
$ts =~ s/^ @ // if $ts;
my $accessor = $self->_run_user_map(
$self->col_accessor_map,
- sub { $self->_default_column_accessor_name( shift ) },
+ $self->curry::_default_column_accessor_name,
$column_name,
$column_context_info,
);
$self->_run_user_map(
$self->moniker_map,
- sub { $self->_default_table2moniker( shift ) },
+ $self->curry::_default_table2moniker,
$table
);
}