Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
Admin	[ DIR ]	drwxrwxrwx
CDBICompat	[ DIR ]	drwxrwxrwx
ClassResolver	[ DIR ]	drwxrwxrwx
InflateColumn	[ DIR ]	drwxrwxrwx
Manual	[ DIR ]	drwxrwxrwx
Optional	[ DIR ]	drwxrwxrwx
PK	[ DIR ]	drwxrwxrwx
Relationship	[ DIR ]	drwxrwxrwx
ResultClass	[ DIR ]	drwxrwxrwx
ResultSet	[ DIR ]	drwxrwxrwx
ResultSource	[ DIR ]	drwxrwxrwx
ResultSourceProxy	[ DIR ]	drwxrwxrwx
SQLAHacks	[ DIR ]	drwxrwxrwx
SQLMaker	[ DIR ]	drwxrwxrwx
Schema	[ DIR ]	drwxrwxrwx
Serialize	[ DIR ]	drwxrwxrwx
Storage	[ DIR ]	drwxrwxrwx
AccessorGroup.pm	1.33 KB	-rw-rw-rw-
Admin.pm	11.78 KB	-rw-rw-rw-
CDBICompat.pm	4.49 KB	-rw-rw-rw-
Carp.pm	4.98 KB	-rw-rw-rw-
Componentised.pm	2.2 KB	-rw-rw-rw-
Core.pm	1.34 KB	-rw-rw-rw-
Cursor.pm	1.94 KB	-rw-rw-rw-
DB.pm	5.9 KB	-rw-rw-rw-
Exception.pm	2.3 KB	-rw-rw-rw-
FilterColumn.pm	7.77 KB	-rw-rw-rw-
FilterColumn.pod	4.17 KB	-rw-rw-rw-
InflateColumn.pm	7.02 KB	-rw-rw-rw-
InflateColumn.pod	5.55 KB	-rw-rw-rw-
Manual.pod	1.74 KB	-rw-rw-rw-
Ordered.pm	26.18 KB	-rw-rw-rw-
PK.pm	3.3 KB	-rw-rw-rw-
PK.pod	2.96 KB	-rw-rw-rw-
Relationship.pm	21.54 KB	-rw-rw-rw-
ResultSet.pm	140.76 KB	-rw-rw-rw-
ResultSetColumn.pm	10.62 KB	-rw-rw-rw-
ResultSetManager.pm	3.25 KB	-rw-rw-rw-
ResultSetProxy.pm	997 B	-rw-rw-rw-
ResultSource.pm	66.33 KB	-rw-rw-rw-
ResultSourceHandle.pm	3.74 KB	-rw-rw-rw-
ResultSourceProxy.pm	1.88 KB	-rw-rw-rw-
Row.pm	44.7 KB	-rw-rw-rw-
SQLAHacks.pm	120 B	-rw-rw-rw-
SQLMaker.pm	6.35 KB	-rw-rw-rw-
Schema.pm	42.39 KB	-rw-rw-rw-
StartupCheck.pm	1.48 KB	-rw-rw-rw-
Storage.pm	15.52 KB	-rw-rw-rw-
UTF8Columns.pm	5.18 KB	-rw-rw-rw-
_Util.pm	10.77 KB	-rw-rw-rw-

Name

Size

Permission

Action

Admin

[ DIR ]

drwxrwxrwx

CDBICompat

[ DIR ]

drwxrwxrwx

ClassResolver

[ DIR ]

drwxrwxrwx

InflateColumn

[ DIR ]

drwxrwxrwx

Manual

[ DIR ]

drwxrwxrwx

Optional

[ DIR ]

drwxrwxrwx

[ DIR ]

drwxrwxrwx

Relationship

[ DIR ]

drwxrwxrwx

ResultClass

[ DIR ]

drwxrwxrwx

ResultSet

[ DIR ]

drwxrwxrwx

ResultSource

[ DIR ]

drwxrwxrwx

ResultSourceProxy

[ DIR ]

drwxrwxrwx

SQLAHacks

[ DIR ]

drwxrwxrwx

SQLMaker

[ DIR ]

drwxrwxrwx

Schema

[ DIR ]

drwxrwxrwx

Serialize

[ DIR ]

drwxrwxrwx

Storage

[ DIR ]

drwxrwxrwx

AccessorGroup.pm

1.33 KB

-rw-rw-rw-

Admin.pm

11.78 KB

-rw-rw-rw-

CDBICompat.pm

4.49 KB

-rw-rw-rw-

Carp.pm

4.98 KB

-rw-rw-rw-

Componentised.pm

2.2 KB

-rw-rw-rw-

Core.pm

1.34 KB

-rw-rw-rw-

Cursor.pm

1.94 KB

-rw-rw-rw-

DB.pm

5.9 KB

-rw-rw-rw-

Exception.pm

2.3 KB

-rw-rw-rw-

FilterColumn.pm

7.77 KB

-rw-rw-rw-

FilterColumn.pod

4.17 KB

-rw-rw-rw-

InflateColumn.pm

7.02 KB

-rw-rw-rw-

InflateColumn.pod

5.55 KB

-rw-rw-rw-

Manual.pod

1.74 KB

-rw-rw-rw-

Ordered.pm

26.18 KB

-rw-rw-rw-

PK.pm

3.3 KB

-rw-rw-rw-

PK.pod

2.96 KB

-rw-rw-rw-

Relationship.pm

21.54 KB

-rw-rw-rw-

ResultSet.pm

140.76 KB

-rw-rw-rw-

ResultSetColumn.pm

10.62 KB

-rw-rw-rw-

ResultSetManager.pm

3.25 KB

-rw-rw-rw-

ResultSetProxy.pm

997 B

-rw-rw-rw-

ResultSource.pm

66.33 KB

-rw-rw-rw-

ResultSourceHandle.pm

3.74 KB

-rw-rw-rw-

ResultSourceProxy.pm

1.88 KB

-rw-rw-rw-

Row.pm

44.7 KB

-rw-rw-rw-

SQLAHacks.pm

120 B

-rw-rw-rw-

SQLMaker.pm

6.35 KB

-rw-rw-rw-

Schema.pm

42.39 KB

-rw-rw-rw-

StartupCheck.pm

1.48 KB

-rw-rw-rw-

Storage.pm

15.52 KB

-rw-rw-rw-

UTF8Columns.pm

5.18 KB

-rw-rw-rw-

_Util.pm

10.77 KB

-rw-rw-rw-

Code Editor : Componentised.pm

package # hide from PAUSE
    DBIx::Class::Componentised;

use strict;
use warnings;

use base 'Class::C3::Componentised';
use mro 'c3';

use DBIx::Class::Carp '^DBIx::Class|^Class::C3::Componentised';
use namespace::clean;

# this warns of subtle bugs introduced by UTF8Columns hacky handling of store_column
# if and only if it is placed before something overriding store_column
sub inject_base {
  my $class = shift;
  my ($target, @complist) = @_;

# we already did load the component
  my $keep_checking = ! (
    $target->isa ('DBIx::Class::UTF8Columns')
      ||
    $target->isa ('DBIx::Class::ForceUTF8')
  );

my @target_isa;

while ($keep_checking && @complist) {

@target_isa = do { no strict 'refs'; @{"$target\::ISA"} }
      unless @target_isa;

my $comp = pop @complist;

# warn here on use of either component, as we have no access to ForceUTF8,
    # the author does not respond, and the Catalyst wiki used to recommend it
    for (qw/DBIx::Class::UTF8Columns DBIx::Class::ForceUTF8/) {
      if ($comp->isa ($_) ) {
        $keep_checking = 0; # no use to check from this point on
        carp_once "Use of $_ is strongly discouraged. See documentation of DBIx::Class::UTF8Columns for more info\n"
          unless $ENV{DBIC_UTF8COLUMNS_OK};
        last;
      }
    }

# something unset $keep_checking - we got a unicode mangler
    if (! $keep_checking) {

my $base_store_column = do { require DBIx::Class::Row; DBIx::Class::Row->can ('store_column') };

my @broken;
      for my $existing_comp (@target_isa) {
        my $sc = $existing_comp->can ('store_column')
          or next;

if ($sc ne $base_store_column) {
          require B;
          my $definer = B::svref_2object($sc)->STASH->NAME;
          push @broken, ($definer eq $existing_comp)
            ? $existing_comp
            : "$existing_comp (via $definer)"
          ;
        }
      }

carp "Incorrect loading order of $comp by $target will affect other components overriding 'store_column' ("
          . join (', ', @broken)
          .'). Refer to the documentation of DBIx::Class::UTF8Columns for more info'
        if @broken;
    }

unshift @target_isa, $comp;
  }

$class->next::method(@_);
}

${this.title}

Code Editor : Componentised.pm