/usr/share/perl5/DBIx/Class/ResultSourceProxy/Table.pm is in libdbix-class-perl 0.082840-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | package DBIx::Class::ResultSourceProxy::Table;
use strict;
use warnings;
use base qw/DBIx::Class::ResultSourceProxy/;
use DBIx::Class::ResultSource::Table;
use Scalar::Util 'blessed';
use namespace::clean;
__PACKAGE__->mk_classdata(table_class => 'DBIx::Class::ResultSource::Table');
__PACKAGE__->mk_classdata('table_alias'); # FIXME: Doesn't actually do
# anything yet!
sub _init_result_source_instance {
my $class = shift;
$class->mk_classdata('result_source_instance')
unless $class->can('result_source_instance');
my $table = $class->result_source_instance;
my $class_has_table_instance = ($table and $table->result_class eq $class);
return $table if $class_has_table_instance;
my $table_class = $class->table_class;
$class->ensure_class_loaded($table_class);
if( $table ) {
$table = $table_class->new({
%$table,
result_class => $class,
source_name => undef,
schema => undef
});
}
else {
$table = $table_class->new({
name => undef,
result_class => $class,
source_name => undef,
});
}
$class->result_source_instance($table);
return $table;
}
=head1 NAME
DBIx::Class::ResultSourceProxy::Table - provides a classdata table
object and method proxies
=head1 SYNOPSIS
__PACKAGE__->table('cd');
__PACKAGE__->add_columns(qw/cdid artist title year/);
__PACKAGE__->set_primary_key('cdid');
=head1 METHODS
=head2 add_columns
__PACKAGE__->add_columns(qw/cdid artist title year/);
Adds columns to the current class and creates accessors for them.
=cut
=head2 table
__PACKAGE__->table('tbl_name');
Gets or sets the table name.
=cut
sub table {
my ($class, $table) = @_;
return $class->result_source_instance->name unless $table;
unless (blessed $table && $table->isa($class->table_class)) {
my $table_class = $class->table_class;
$class->ensure_class_loaded($table_class);
$table = $table_class->new({
$class->can('result_source_instance')
? %{$class->result_source_instance||{}}
: ()
,
name => $table,
result_class => $class,
});
}
$class->mk_classdata('result_source_instance')
unless $class->can('result_source_instance');
$class->result_source_instance($table);
return $class->result_source_instance->name;
}
=head2 table_class
__PACKAGE__->table_class('DBIx::Class::ResultSource::Table');
Gets or sets the table class used for construction and validation.
=head2 has_column
if ($obj->has_column($col)) { ... }
Returns 1 if the class has a column of this name, 0 otherwise.
=head2 column_info
my $info = $obj->column_info($col);
Returns the column metadata hashref for a column. For a description of
the various types of column data in this hashref, see
L<DBIx::Class::ResultSource/add_column>
=head2 columns
my @column_names = $obj->columns;
=head1 FURTHER QUESTIONS?
Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
=head1 COPYRIGHT AND LICENSE
This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
redistribute it and/or modify it under the same terms as the
L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
=cut
1;
|