package DBIx::Classについて

package DBIx::Class;

use strict; #Perlの文法を厳密にチェック
use warnings; #詳細な警告を出力

#バージョンナンバーを格納するグローバル変数の宣言。
our $VERSION;

#"0.082841"という数値を$VERSIONに格納。
$VERSION = '0.082841';

#もし$VERSIONに"_"が含まれていたら、$VERSIONに格納されている値をPerlの文として評価する。アンダースコアが付いている（αバージョンが付いている）と数値への自動変換が行なわれない。
$VERSION = eval $VERSION if $VERSION =~ /_/;

use DBIx::Class::_Util;

#"c3"というmro(メソッド解決順序)を使用する。C3は多重継承における健全なメソッド解決順序を提供することを目的としたアルゴリズムである。
use mro 'c3';

#/usr/local/share/perl5/DBIx/Cl∂ass/OptionalというディレクトリにあるDependencies.pmというモジュールを使用する。
use DBIx::Class::Optional::Dependencies;

#クラスを継承するにはbaseモジュールを使用する。これにより親クラスのメソッドを使えるようになる。
use base qw/DBIx::Class::Componentised DBIx::Class::AccessorGroup/;

use DBIx::Class::StartupCheck;
use DBIx::Class::Exception;

#mk_group_accessorsは、アクセサのグループを作るためのモジュールであるClass::Accessor::Groupedで使用できるメソッド。
__PACKAGE__->mk_group_accessors(inherited => '_skip_namespace_frames');

#"^"はメタ文字。行頭にマッチするかどうか調べる機能がある。"|"はメタ文字。いくつかのパターンから1つを選択する機能がある。
__PACKAGE__->_skip_namespace_frames('^DBIx::Class|^SQL::Abstract|^Try::Tiny|^Class::Accessor::Grouped|^Context::Preserve');

#DBIx::Classにある_Util.pm内のdetected_reinvoked_destructorというパッケージ(サブルーチン)を呼び出す。
sub DESTROY { &DBIx::Class::_Util::detected_reinvoked_destructor }

sub mk_classdata {
    shift->mk_classaccessor(@_);
}

sub mk_classaccessor {
    #引数受け取り。"DBIx::Class"を格納。
    my $self = shift;
    $self->mk_group_accessors('inherited', $_[0]);
    $self->set_inherited(@_) if @_ > 1;
}

sub component_base_class { 'DBIx::Class' }

sub MODIFY_CODE_ATTRIBUTES {
    #引数受け取り。
    my ($class,$code,@attrs) = @_;
    $class->mk_classdata('__attr_cache' => {})
        unless $class->can('__attr_cache');
    $class->__attr_cache->{$code} = [@attrs];
    return ();
}

sub _attr_cache {
    #引数受け取り。"DBIx::Class"を格納。
    my $self = shift;
    my $cache = $self->can('__attr_cache') ? $self->__attr_cache : {};

    return {
        %$cache,
            %{ $self->maybe::next::method || {} },
    };
}

sub DBIx::Class::_ENV_::HELP_URL () {
    'http://p3rl.org/DBIx::Class#GETTING_HELP/SUPPORT'
}

1;