K2LL33D SHELL

 Apache/2.4.7 (Ubuntu)
 Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64
 uid=33(www-data) gid=33(www-data) groups=33(www-data)
 safemode : OFF
 MySQL: ON | Perl: ON | cURL: OFF | WGet: ON
  >  / usr / lib / perl5 / DBI / Util /
server ip : 104.21.89.46

your ip : 172.69.214.81

H O M E


Filename/usr/lib/perl5/DBI/Util/_accessor.pm
Size1.63 kb
Permissionrw-r--r--
Ownerroot : root
Create time27-Apr-2025 10:10
Last modified25-Jun-2013 05:03
Last accessed07-Jul-2025 18:10
Actionsedit | rename | delete | download (gzip)
Viewtext | code | image
package DBI::Util::_accessor;
use strict;
use Carp;
our $VERSION = "0.009479";

# inspired by Class::Accessor::Fast

sub new {
my($proto, $fields) = @_;
my($class) = ref $proto || $proto;
$fields ||= {};

my @dubious = grep { !m/^_/ && !$proto->can($_) } keys %$fields;
carp "$class doesn't have accessors for fields: @dubious" if @dubious;

# make a (shallow) copy of $fields.
bless {%$fields}, $class;
}

sub mk_accessors {
my($self, @fields) = @_;
$self->mk_accessors_using('make_accessor', @fields);
}

sub mk_accessors_using {
my($self, $maker, @fields) = @_;
my $class = ref $self || $self;

# So we don't have to do lots of lookups inside the loop.
$maker = $self->can($maker) unless ref $maker;

no strict 'refs';
foreach my $field (@fields) {
my $accessor = $self->$maker($field);
*{$class."\:\:$field"} = $accessor
unless defined &{$class."\:\:$field"};
}
#my $hash_ref = \%{$class."\:\:_accessors_hash};
#$hash_ref->{$_}++ for @fields;
# XXX also copy down _accessors_hash of base class(es)
# so one in this class is complete
return;
}

sub make_accessor {
my($class, $field) = @_;
return sub {
my $self = shift;
return $self->{$field} unless @_;
croak "Too many arguments to $field" if @_ > 1;
return $self->{$field} = shift;
};
}

sub make_accessor_autoviv_hashref {
my($class, $field) = @_;
return sub {
my $self = shift;
return $self->{$field} ||= {} unless @_;
croak "Too many arguments to $field" if @_ > 1;
return $self->{$field} = shift;
};
}

1;