view release on metacpan or  search on metacpan

lib/Acme/Mitey/Cards/MOP.pm  view on Meta::CPAN

    }
    do {
        no warnings 'redefine';
        local *Moose::Meta::Attribute::install_accessors = sub {};
        $PACKAGE->add_attribute( $ATTR{"suit"} );
    };
    $ATTR{"number"} = Moose::Meta::Attribute->new( "number",
        __hack_no_process_options => true,
        associated_class => $PACKAGE,
        definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Card/Numeric.pm", line => "20", package => "Acme::Mitey::Cards::Card::Numeric", toolkit => "Mite", type => "class" },
        is => "ro",
        weak_ref => false,
        init_arg => "number",
        required => true,
        type_constraint => do { require Acme::Mitey::Cards::Types::Source; Acme::Mitey::Cards::Types::Source::CardNumber() },
        coerce => true,
        reader => "number",
    );
    {
        my $ACCESSOR = Moose::Meta::Method::Accessor->new(
            accessor_type => 'reader',
            attribute => $ATTR{"number"},
            name => "number",
            body => \&Acme::Mitey::Cards::Card::Numeric::number,
            package_name => "Acme::Mitey::Cards::Card::Numeric",
            definition_context => { context => "has declaration", description => "reader Acme::Mitey::Cards::Card::Numeric::number", file => "lib/Acme/Mitey/Cards/Card/Numeric.pm", line => "20", package => "Acme::Mitey::Cards::Card::Numeric", toolkit...
        );
        $ATTR{"number"}->associate_method( $ACCESSOR );
        $PACKAGE->add_method( $ACCESSOR->name, $ACCESSOR );
    }
    do {
        no warnings 'redefine';
        local *Moose::Meta::Attribute::install_accessors = sub {};
        $PACKAGE->add_attribute( $ATTR{"number"} );
    };
    $PACKAGE->add_method(
        "meta" => Moose::Meta::Method::Meta->_new(
            name => "meta",
            body => \&Acme::Mitey::Cards::Card::Numeric::meta,
            package_name => "Acme::Mitey::Cards::Card::Numeric",
        ),
    );
    Moose::Util::TypeConstraints::find_or_create_isa_type_constraint( "Acme::Mitey::Cards::Card::Numeric" );
}

require "Acme/Mitey/Cards/Deck.pm";

{
    my $PACKAGE = $META_CLASS->initialize( "Acme::Mitey::Cards::Deck", package => "Acme::Mitey::Cards::Deck" );
    my %ATTR;
    $ATTR{"reverse"} = Moose::Meta::Attribute->new( "reverse",
        __hack_no_process_options => true,
        associated_class => $PACKAGE,
        definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Deck.pm", line => "17", package => "Acme::Mitey::Cards::Deck", toolkit => "Mite", type => "class" },
        is => "ro",
        weak_ref => false,
        init_arg => "reverse",
        required => false,
        type_constraint => do { require Types::Common::String; Types::Common::String::NonEmptyStr() },
        reader => "reverse",
        default => "plain",
        lazy => false,
    );
    {
        my $ACCESSOR = Moose::Meta::Method::Accessor->new(
            accessor_type => 'reader',
            attribute => $ATTR{"reverse"},
            name => "reverse",
            body => \&Acme::Mitey::Cards::Deck::reverse,
            package_name => "Acme::Mitey::Cards::Deck",
            definition_context => { context => "has declaration", description => "reader Acme::Mitey::Cards::Deck::reverse", file => "lib/Acme/Mitey/Cards/Deck.pm", line => "17", package => "Acme::Mitey::Cards::Deck", toolkit => "Mite", type => "clas...
        );
        $ATTR{"reverse"}->associate_method( $ACCESSOR );
        $PACKAGE->add_method( $ACCESSOR->name, $ACCESSOR );
    }
    do {
        no warnings 'redefine';
        local *Moose::Meta::Attribute::install_accessors = sub {};
        $PACKAGE->add_attribute( $ATTR{"reverse"} );
    };
    $ATTR{"original_cards"} = Moose::Meta::Attribute->new( "original_cards",
        __hack_no_process_options => true,
        associated_class => $PACKAGE,
        definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Deck.pm", line => "23", package => "Acme::Mitey::Cards::Deck", toolkit => "Mite", type => "class" },
        is => "ro",
        weak_ref => false,
        init_arg => "original_cards",
        required => false,
        type_constraint => do { require Acme::Mitey::Cards::Types::Source; Acme::Mitey::Cards::Types::Source::CardArray() },
        reader => "original_cards",
        builder => "_build_original_cards",
        lazy => true,
    );
    {
        my $ACCESSOR = Moose::Meta::Method::Accessor->new(
            accessor_type => 'reader',
            attribute => $ATTR{"original_cards"},
            name => "original_cards",
            body => \&Acme::Mitey::Cards::Deck::original_cards,
            package_name => "Acme::Mitey::Cards::Deck",
            definition_context => { context => "has declaration", description => "reader Acme::Mitey::Cards::Deck::original_cards", file => "lib/Acme/Mitey/Cards/Deck.pm", line => "23", package => "Acme::Mitey::Cards::Deck", toolkit => "Mite", type =...
        );
        $ATTR{"original_cards"}->associate_method( $ACCESSOR );
        $PACKAGE->add_method( $ACCESSOR->name, $ACCESSOR );
    }
    do {
        no warnings 'redefine';
        local *Moose::Meta::Attribute::install_accessors = sub {};
        $PACKAGE->add_attribute( $ATTR{"original_cards"} );
    };
    $PACKAGE->add_method(
        "meta" => Moose::Meta::Method::Meta->_new(
            name => "meta",
            body => \&Acme::Mitey::Cards::Deck::meta,
            package_name => "Acme::Mitey::Cards::Deck",
        ),
    );
    Moose::Util::TypeConstraints::find_or_create_isa_type_constraint( "Acme::Mitey::Cards::Deck" );
}

require "Acme/Mitey/Cards/Hand.pm";