BRTASTIC / Mooish-Base-0.002 / lib / Mooish / Base.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
—
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108

              
package Mooish::Base;
$Mooish::Base::VERSION = '0.002';
use v5.14;
use warnings;
use Import::Into;
require Mooish::AttributeBuilder;
require Type::Tiny;
require namespace::autoclean;
use constant FLAVOUR => $ENV{MOOISH_BASE_FLAVOUR} // 'Moo';
use constant ROLE_FLAVOUR => $ENV{MOOISH_BASE_ROLE_FLAVOUR} // (FLAVOUR . '::Role');
use constant HAS_HOOK_AFTERRUNTIME => eval { require Hook::AfterRuntime; 1 };
BEGIN {
        eval 'require ' . FLAVOUR or die $@;
        eval 'require ' . ROLE_FLAVOUR or die $@;
}
sub import
{
        my $me = shift;
        my $pkg = caller;
        my $class_type = FLAVOUR;
        if (($_[0] // '') eq -role) {
                $class_type = ROLE_FLAVOUR;
        }
        $class_type->import::into($pkg);
        Mooish::AttributeBuilder->import::into($pkg);
        Types::Common->import::into($pkg, -types);
        namespace::autoclean->import(-cleanee => $pkg);
        if ($class_type eq 'Moose') {
                if (HAS_HOOK_AFTERRUNTIME) {
                        Hook::AfterRuntime::after_runtime { $pkg->meta->make_immutable };
                }
                else {
                        warn "Mooish::Base can't make $pkg Moose class immutable - please install Hook::AfterRuntime module";
                }
        }
}
1;
__END__
=head1 NAME
Mooish::Base - importer for Mooish classes
=head1 SYNOPSIS
        # for classes
        use Mooish::Base;
        # for roles
        use Mooish::Base -role;
        # create your class / role as usual
=head1 DESCRIPTION
This module is a shortcut that does roughly the same as calling these imports:
        use Moo;
        use Mooish::AttributeBuilder;
        use Types::Common -types;
        use namespace::autoclean;
If a C<-role> flag is specified, then the module imports C<Moo::Role> instead.
Environmental variables C<MOOISH_BASE_FLAVOUR> and C<MOOISH_BASE_ROLE_FLAVOUR>
can be used to modify class and role systems used. If not present, C<Moo> and
C<Moo::Role> will be used respectively. Make sure to introduce these variables
before first loading the module.
The purpose of this module is to make it easier to create classes based on
Moose family of modules. The choice of imported modules is meant to provide a
solid base for module development, but still be perfectly compatible at least
with L<Moose>, L<Mouse> and L<Moo>.
Since this module imports L<Mooish::AttributeBuilder> without the C<-standard>
flag, please do not use it as a dependency of other modules. You may use its
code to create your own, similar importer.
=head1 SEE ALSO
L<Moo>
L<Mooish::AttributeBuilder>
L<Types::Common>
L<Import::Into>
=head1 AUTHOR
Bartosz Jarzyna E<lt>bbrtj.pro@gmail.comE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2025 by Bartosz Jarzyna
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.