_minimum_arguments
_maximum_arguments
_inline_optimized_set_new_value
- _return_value
)
]
};
return "$slot_access -= defined \$_[0] ? \$_[0] : 1";
}
-sub _return_value {
- my ( $self, $slot_access ) = @_;
-
- return "return $slot_access;";
-}
-
no Moose::Role;
1;
_minimum_arguments
_maximum_arguments
_inline_optimized_set_new_value
- _return_value
)
]
};
return "$slot_access += defined \$_[0] ? \$_[0] : 1";
}
-sub _return_value {
- my ( $self, $slot_access ) = @_;
-
- return "return $slot_access;";
-}
-
no Moose::Role;
1;
qw(
_maximum_arguments
_inline_optimized_set_new_value
- _return_value
)
]
};
return "$slot_access = \$attr->default(\$self)";
}
-sub _return_value {
- my ( $self, $slot_access ) = @_;
-
- return "return $slot_access;";
-}
-
no Moose::Role;
1;
_minimum_arguments
_maximum_arguments
_inline_optimized_set_new_value
- _return_value
)
]
};
return "$slot_access = \$_[0];";
}
-sub _return_value {
- my ( $self, $slot_access ) = @_;
-
- return "return $slot_access;";
-}
-
no Moose::Role;
1;