Commit | Line | Data |
3fea05b9 |
1 | package MooseX::Role::WithOverloading; |
2 | our $VERSION = '0.03'; |
3 | |
4 | |
5 | # ABSTRACT: Roles which support overloading |
6 | |
7 | use XSLoader; |
8 | use Moose::Role (); |
9 | use Moose::Exporter; |
10 | use Moose::Util::MetaRole; |
11 | use aliased 'MooseX::Role::WithOverloading::Meta::Role', 'MetaRole'; |
12 | use aliased 'MooseX::Role::WithOverloading::Meta::Role::Application::ToClass'; |
13 | use aliased 'MooseX::Role::WithOverloading::Meta::Role::Application::ToRole'; |
14 | use aliased 'MooseX::Role::WithOverloading::Meta::Role::Application::ToInstance'; |
15 | |
16 | use namespace::clean; |
17 | |
18 | XSLoader::load(__PACKAGE__, $VERSION); |
19 | |
20 | Moose::Exporter->setup_import_methods(also => 'Moose::Role'); |
21 | |
22 | sub init_meta { |
23 | my ($class, %opts) = @_; |
24 | my $meta = Moose::Role->init_meta(%opts); |
25 | |
26 | return Moose::Util::MetaRole::apply_metaclass_roles( |
27 | for_class => $meta, |
28 | metaclass_roles => [ MetaRole ], |
29 | application_to_class_class_roles => [ ToClass ], |
30 | application_to_role_class_roles => [ ToRole ], |
31 | application_to_instance_class_roles => [ ToInstance ], |
32 | ); |
33 | } |
34 | |
35 | 1; |
36 | |
37 | |
38 | __END__ |
39 | =pod |
40 | |
41 | =head1 NAME |
42 | |
43 | MooseX::Role::WithOverloading - Roles which support overloading |
44 | |
45 | =head1 VERSION |
46 | |
47 | version 0.03 |
48 | |
49 | =head1 SYNOPSIS |
50 | |
51 | package MyRole; |
52 | our $VERSION = '0.03'; |
53 | |
54 | |
55 | use MooseX::Role::WithOverloading; |
56 | |
57 | use overload |
58 | q{""} => 'as_string', |
59 | fallback => 1; |
60 | |
61 | has message => ( |
62 | is => 'rw', |
63 | isa => 'Str', |
64 | ); |
65 | |
66 | sub as_string { shift->message } |
67 | |
68 | package MyClass; |
69 | our $VERSION = '0.03'; |
70 | |
71 | |
72 | use Moose; |
73 | use namespace::autoclean; |
74 | |
75 | with 'MyRole'; |
76 | |
77 | package main; |
78 | our $VERSION = '0.03'; |
79 | |
80 | |
81 | |
82 | my $i = MyClass->new( message => 'foobar' ); |
83 | print $i; # Prints 'foobar' |
84 | |
85 | =head1 DESCRIPTION |
86 | |
87 | MooseX::Role::WithOverloading allows you to write a L<Moose::Role> which |
88 | defines overloaded operators and allows those operator overloadings to be |
89 | composed into the classes/roles/instances it's compiled to, while plain |
90 | L<Moose::Role>s would lose the overloading. |
91 | |
92 | =for Pod::Coverage init_meta |
93 | |
94 | =head1 AUTHORS |
95 | |
96 | Florian Ragwitz <rafl@debian.org> |
97 | Tomas Doran <bobtfish@bobtfish.net> |
98 | |
99 | =head1 COPYRIGHT AND LICENSE |
100 | |
101 | This software is copyright (c) 2009 by Florian Ragwitz. |
102 | |
103 | This is free software; you can redistribute it and/or modify it under |
104 | the same terms as the Perl 5 programming language system itself. |
105 | |
106 | =cut |
107 | |