package
DBIx::Class::ResultSourceProxy;
sub
iterator_class {
shift
->result_source_instance->resultset_class(
@_
) }
sub
resultset_class {
shift
->result_source_instance->resultset_class(
@_
) }
sub
source_name {
shift
->result_source_instance->source_name(
@_
) }
sub
resultset_attributes {
shift
->result_source_instance->resultset_attributes(
@_
);
}
sub
add_columns {
my
(
$class
,
@cols
) =
@_
;
my
$source
=
$class
->result_source_instance;
$source
->add_columns(
@cols
);
foreach
my
$c
(
grep
{ !
ref
}
@cols
) {
$class
->register_column(
$c
=>
$source
->column_info(
$c
));
}
}
*add_column
= \
&add_columns
;
sub
has_column {
my
(
$self
,
$column
) =
@_
;
return
$self
->result_source_instance->has_column(
$column
);
}
sub
column_info {
my
(
$self
,
$column
) =
@_
;
return
$self
->result_source_instance->column_info(
$column
);
}
sub
columns {
return
shift
->result_source_instance->columns(
@_
);
}
sub
remove_columns {
return
shift
->result_source_instance->remove_columns(
@_
);
}
*remove_column
= \
&remove_columns
;
sub
set_primary_key {
shift
->result_source_instance->set_primary_key(
@_
);
}
sub
primary_columns {
shift
->result_source_instance->primary_columns(
@_
);
}
sub
add_unique_constraint {
shift
->result_source_instance->add_unique_constraint(
@_
);
}
sub
unique_constraints {
shift
->result_source_instance->unique_constraints(
@_
);
}
sub
unique_constraint_names {
shift
->result_source_instance->unique_constraint_names(
@_
);
}
sub
unique_constraint_columns {
shift
->result_source_instance->unique_constraint_columns(
@_
);
}
sub
add_relationship {
my
(
$class
,
$rel
,
@rest
) =
@_
;
my
$source
=
$class
->result_source_instance;
$source
->add_relationship(
$rel
=>
@rest
);
$class
->register_relationship(
$rel
=>
$source
->relationship_info(
$rel
));
}
sub
relationships {
shift
->result_source_instance->relationships(
@_
);
}
sub
relationship_info {
shift
->result_source_instance->relationship_info(
@_
);
}
1;