/usr/share/perl5/DBIx/Class/CDBICompat/AttributeAPI.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 | package # hide from PAUSE
DBIx::Class::CDBICompat::AttributeAPI;
use strict;
use warnings;
sub _attrs {
my ($self, @atts) = @_;
return @{$self->{_column_data}}{@atts};
}
*_attr = \&_attrs;
sub _attribute_store {
my $self = shift;
my $vals = @_ == 1 ? shift: {@_};
$self->store_column($_, $vals->{$_}) for keys %{$vals};
}
sub _attribute_set {
my $self = shift;
my $vals = @_ == 1 ? shift: {@_};
$self->set_column($_, $vals->{$_}) for keys %{$vals};
}
sub _attribute_delete {
my ($self, $attr) = @_;
delete $self->{_column_data}{$attr};
}
sub _attribute_exists {
my ($self, $attr) = @_;
$self->has_column_loaded($attr);
}
1;
|