2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
10 package SomeAwesomeDB;
18 package MouseX::SomeAwesomeDBFields;
20 # implementation of methods not called in the example deliberately
25 sub inline_create_instance {
26 my ( $self, $classvar ) = @_;
28 "bless SomeAwesomeDB::new_row(), $classvar";
31 sub inline_get_slot_value {
32 my ( $self, $invar, $slot ) = @_;
34 "SomeAwesomeDB::read($invar, \"$slot\")";
37 sub inline_set_slot_value {
38 my ( $self, $invar, $slot, $valexp ) = @_;
40 "SomeAwesomeDB::write($invar, \"$slot\", $valexp)";
43 sub inline_is_slot_initialized {
44 my ( $self, $invar, $slot ) = @_;
49 sub inline_initialize_slot {
50 my ( $self, $invar, $slot ) = @_;
55 sub inline_slot_access {
56 die "inline_slot_access should not have been used";
64 use Mouse::Util::MetaRole;
67 $TODO = q{Mouse is not yet completed};
70 Mouse::Util::MetaRole::apply_metaroles(
72 class_metaroles => { instance => ['MouseX::SomeAwesomeDBFields'] },
83 "Adding lazy accessor does not use inline_slot_access";
90 "Adding read-write accessor does not use inline_slot_access";
92 lives_ok { __PACKAGE__->meta->make_immutable; }
93 "Inling constructor does not use inline_slot_access";